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PAG. 2 } ACORN NIEUWSJUIT DE FEDERATIE 


Voorz, /senninsm. Secretaris: Ledenadministratie? 
Th. van Kempen. BR. Jonselins. G. Visser. 

Het Puyven 71. Klokkensietershoeve 5 Harinsvtiet 591. 
5672 RB Nuenen. 7326 SB Rpeldoorn. 8022 HL Zwolle, 
Teit A48 — BIEZIË Tetf DEF — 417314 Teit 038 — 546561. 


Uitsiuitend voor betaling vaa contributie: 

Giro 5244293 Bank 3.32.87. 285 

Beide t…n.v, Penningmeester Acorn computerclub 
Eindhoven, 


Uitsiuitend voor levering van clubartikelen? 

BANK 52.84.53.818 t.n.v. Acorn computerclub, 
Eindhoven. 

Postairo van de bank: 1159000 ABN Eindhoven. 


Redactie ACORN NIEUWS: 


Rudi van Drunen — hardware 
Frans van Hoeselt — assembler peen 
Kans Marks - basic 
Henk Reinders - larout 

Bandiesarchief: 
Reaactie Acorn Nieuws: P. Grevelt. 
Postbus 1852 Swaimstraat 12 
9788 BA Groninsen. 1784 CP Den He!tder 
Teif 958 — 125458 Teif BA230 — 37860 
Datasheets: Drukwerkarchief: 
B. Akkermans. EF. Monsato 
Wikke 1 Biesbosch 155 
1275 BR Huizen. 8232 VD Zwolle 


Teter 02152 — 58234. 

Uiterste datum inlevering copy: 
NRE. 24 — B — 1984, 

NR 7. 26 -18 — 1984. 

NR 1, 19 -12 — 1984. 


DE CLUB-WINKEL : 


Geheusenkaart; 16 KByte extra in de ATOM tI. 58,29 
Schakelkaart: meerdere EPROM's op Axxx Cinct. 74LS1S5) fl. 5% 00 
Frasrammerkaart: zett erosrammeren van EPROMs fl XK XX 
Bis Benny erinttinct. Clock IC MSM S852RS tl. 42.53 
Kieurenkaart uit DELFT (nos beoerkt aanwezis) ti. 17,08 
Herdruk ACORN NIEUWS 19825 97 pa. wetenswaardisheden ti. 5.02 
Jaarsana 1983: totaal ruim 459 pas. fl. 30. 28 
ATOM-WARE deet 15 machinetaal op de ATOM 98 pas. ti. 6.00 


Bestet len: 

Bis Uw resionate penningmeester. 

Rechtstreeks bij de federatieve genninsmeester, dan fl. 4.08 extra 
voor porto-kosten. 

Archiefdiensten: 

Voor bandies, datasheets, EPROMS en alte andere vormen van dienst 
verjenine kunt U terecht bij de resionale archiefdiensten. Mocht in 
Uw resin iets ontbreken: dan helpt het resionale bestuur U verder 
op wee. 
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pa 2 Uit de Federatie. 
pas 2 Inhoud. 
pas á Waar kunnen we naar Toe. 
pas 5 Van de Redaktie. 
pas 6 — 7 Diverse mededel insen. 
pas 8 s In antwoord op Uw schrijven 
pas 9 De voorplaat 
pas 19 — Atom-calc 
pas 14 — Strings. 
pas 17 — Assembler ESCOZ. 
pas 20 Geen B K op een schijf. 
pas Zi — GEELL 
pas 23 — Tal-stelsets. 
pas 27 z Woardpack-wijziains. 
pas 28 — 38 : Zeestaa. 
pas Zi * Wetenswaardisheden. 
pas EE — 4U : Extra statements. 
GRMODE 
PLAY 
FIND 
SEARCH 
APPEND EN VERIFY 
SCREEN 
DSIZE 
CHECK 
pas 1 — De Zuiamvis. 
Pas 48 Koppel. 
pas 43 Diskat. 
Pas SB — Etektuur modem. 
pas SE — M-CAT 
pas SE Raadsel. 
pas 54 — Fast-cus troubles. 
pas 355 — Noe meerseheusen. 
pas 59 — CK-sos, 
saa El — Het MDCR systeem. 
pas E7 Plaatje Superdraw. 
pas EB De ATDM op 2 Mhz. 
pas EI — Rtom strinsfunctie’ 5. 
paa 75 — Dobbelspel. 
paa àl Foutje in source-maker. 
pas E1 Nagekomen info ELEKTUUR modem. 
pas 82 — Intikken en runnen maar. 
Diasonaal. 
Flat. 
Lissasnus. 
Fvar. 


GRMOD met edit. 

Tower af Hanoi. 

Turtie srafics. 
Hersenbreker. 

3-D plotten. 

Dr iemhoek. 

Onmoselijk figuur. 

3-D plot. 

3 Zend amateur Pprosramma’ s. 


ACORN NIEUWS Uitsave van de Fed. Acorn Comeuterciubs N/E 
Verschiint 6 — 2 keer per jaar. 
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3 SEPT 1984 
28.09 VUR 

3 SEPT 1984 
ze. B UUR 

& SEPT 1984 
20.38 UUR 

7 SEPT 1384 
13.38 UUR 

12 SEPT 1984 
20, 88 UUR 

15 SEPT 1984 
13.30 UUR 

18 SEPT 1984 
20.08 VUR 

19 SEPT 1984 
29. 08 UUR 
22 SEPT 1984 
18. 38 UUR 
24 SEPT 1984 
28. 08 UUR 
23 SEPT 1984 
14,88 UUR 

1 OKT 1384 
20.88 UUR 

1 OKT 1984 


29.98 LUUR 


4 OKT 1984 


20.38 UUR 


ARNHEM 


DELFT 


BRABANT 


LIMBURG 


TWENTE 


NOORD 


BRABANT 


CENTRUM 


BELGIE 


ROTTERD 


OV/GELD 


ARNHEM 


DELFT 


BRABANT 


t.o. POSTGIRO 
VELPERWEG S56-A (kelder) 
ARNHEM. 


E-KAFE 
GEBOUW ELEKTRA TH WIJK 
DELFT. 


GEBDUW B, R. A. N. 
HEVEL 7 
VORSTENBOSCH. 


ZAAL HUIVENEERS 
STATIONSSTRAAT 25 
SITTARD. 


MEPA-GEBOUW 
WIERDENSESTRAAT 40 
ALMELO. 


MUNSTERHOES. 
MUNSTERHEERD. 
GRONINGEN. 


DE WERFF 
V/D WERFFSTRAAT 
EINDHOVEN. 


DE LANTRERN 
UTRECHTSESTRAATWEG 4 
NIEUWEGEIN. 


OXACO-CEPENBERGCENTER 
BORSBEEKSE STEENWEG 45, 
BOECHOUT £ BIJ HOVE) 


SPEELTUINGEBOUW HET WESTEN 
SPAANSEWEG 38 
ROTTERDAM-WEST. 


WIJKCENTRUM DE BOLDER. 
DOBBE 62. 
ZWDLLE. 


t.o. POSTGIRO 
VELPERWEG S56-A (kelder) 
ARNHEM. 


E-KAFE 
GEBOUW ELEKTRO TH WIJK 
DELFT. 


GEBOUW B. R.A.N. 
HEVEL 7 
VORSTENBOSCH. 











Te veel. Op deze manier bl 
ijtt er zelfs geen ruimte 
over voor een behoorlijk r 
edactioneel. Niet dat dat 
belangrijk is, want wie in 
teresseert zich nu voor de 
redactionele perikelen van 
dit blad. Geen hond toch € 
woef) . 

Maar goed, in ieder geval 
hebben jullie weer wat te 
lezen. Misschien zijn jul- 
lie in de vakantie ook nog 
toe gekomen aan het schrij 
ven van iets leuks. Wat zei 
je? Slecht weer geweest? 
Zo, zo, dus tijd genoeg ge- 
had om achter het toetsen- 
bord te zitten. Waarom dan 
geaarzeld met het insturen 
van dat interessante, ori- 
ginele, moeilijke, gekleur- 
de, korte, uiterst simpele, 
of lachwekkende programma 
of artikeltje voor Acorn 
Nieuws? Wij wachten!!! 
Overigens Krijgen wij soms 
Klachten over het niveau 
van bepaalde artikelen. 
vaak în de trant van: "IK 








begrijp het wel, maar ìk Ken 


mensen die...”. Kreten als 
"te moeilijk” of "te wei- 
nig uitleg” horen wij dan 
het vaakst, Beste mensen 
bedenk dat zeker 80% van 
de pagina’s in dit blad 
van een dusdanig niveau 
zijn dat iedereen die min 
of meer moet Kunnen volgen 
en dat v waarschijnlijk 
over een tijdje met ple- 
zier die andere 19% leest. 
Dat er in sommige gevallen 
te weinig wordt uitgelegd 
realiseren wij ons ook, 
doch het is voor de redac- 
tie ondoenlijk om regelma 
tig artikelen aan te vul- 
ten met opmerkingen. Wij 
zijn geheel afhankelijk 
van wat de leden ons in- 
sturen. Bovendien, als we 
van ons ieder persoonlijk 
teveel plaatsen Krijgen we 
daar weer Klachten over. 
Dit laatste is trouwens 
een verschijnsel dat aok 
in de regio=bladen is te 


















































bespeuren: redakteuren ® 
schrijven meer, 

Over het algemeen ziin de ® 
reacties op Acorn Nieuws 
echter goed. Dit is echter ® 
niet zozeer een verdienste 
van de redaktie, alswel ed 
van de vele leden die zich 
actief met de atom bezig ® 
houden en daarover ook 

iets zinnigs weten te ver-® 
tellen. Graag zouden wij 
meer van dit soort leden 
hebben. Bij deze is de re- 
dactie dus op een top- . 
sterkte gekomen van 800 


man. hed 
Wij wachten, er zijn er . 
Veel te Weinig. 

. 


de redaktie, 
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BESTUUR: 

Theo van Kemsen heett de financiele administratie oversenomen. 
Gerhard Visser blijft de ledenadministratie doen. 

Aareswijzisinsen en niet ontvansen A.N, dient aan Gerhard Visser te 
worden semeld en NIET aan de redaktie. 


VERSCHIJNING AN. 

Helaas is het financieel niet haalbaar AN. acht maalt uit te seven 
met 198 pasina's, Daarom zal het november nummer vervatten en het 
oktobernummer omstreeks 15 oktober verschijnen. 


CONTRIBUTIE 1985: 

Een acceptsirokaart voor de contributie zal bij het oktobernummer 
sevoesd worden. Op de Algemene Versaderins is deze vastsesteld op 
fi. 69,98. Wis hopen dan volsend jaar wel 8 nummers uit te seven. 
De contributie dient voor 15 december 1984 voldaan te zijn om het 
Januari nummer te ontvansen. Bis betalins na deze datum zal het 
januarinummer niet sratis nasestuurd worden: daar deze Kosten de 
san uit rijzen, maar dient er fl. 4,0D extra betaald te worden. 


PRINTEN: 

Het Bis Benny printje is leverbaar inctusief het clock-IC vanat 
heden. 

De opdracht voor het maken van schakel en seheusenkaarten is 


sveseven, leverbaar vanaf eind september. 

Ook zai er een offerte sevraasd worden voor het minischakerkaartse. 
Uit de enauete is sebieken dat er veel vraaa naar os. 

Van de kieuren kaart uit DELFT zijn nos 5 exemptaren leverbaar. De 
verzendina van de ctubartiketen wordt verzorad door Theo van 
Kempen. 


ATOMWARE ; 

De voorbereiding van deel 2 verst meer tijd dan was voorzien en de 
hoeveelheid is dermate sroot dat de zaak in deet 2 (dosram) en deet 
3 Cmanitorrom) gesplitst moet worden. De uitsave is daarom nos niet 
exact aan te sever, maar we doen ans best. 

Evert Sanders vit Roermond is vol ijver de manual aan het vertalen 
en voe te lichten. Dit zat ook worden vitseseven ats een ATOM-WARE 
deeltje. 


REG ID-SCHIJVEN: 

Inhoud 1 september 1984: 
NeDnord 2280 9000 BEDOO A2 superdran tekening. 
NEDzuid 2200 0020 BEDAY BEE superdraw tekening. 
CROSS 2200 0ALU BEAAD OC2 superdraw tekening, 
RAADSEL 2300 AFAF B@DIEB 122 AN. nr 5 biz. S1 

S8. 


SOS.CK 2980 AFAF @I259 124 AN. nr 5 biz 





Inhoud 2 septenber 1984: 





ZEESLAG 2907 AFAF BtIGA BUL AN. nr 5 biz. 

GRMOD 2900 AFAF BIESZ BLA AN. nr S biz. 

PLAY 290D AFAF BIESL DEB AN. nr 5 biz. 24. 
FIND 230 AFAF GBOIES DUZ A.N. nr 5 LIZ. F5, 
SCREENS 2908 AFAF @OII4 DAE AN. nr 5 biz. ZE. 
F-CAT1 2908 AFAF 89175 BR AN. ur 5 biz. 49. 
SETCAT 2988 AFAF B2175 B4C A.N. nr S biz. úI. 
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EXEC$ 8EZIT ZVLE A‚N. nr 5 Liz. 

DOBBEL OBES7 B51 AN. nr 5 blz, 75. 
TURTLE UULTE GED AN. nr 5 biz. ES, 
HANDI DEZEA BE7 A‚N. nr 5 blz. Bh, 
DRIEHOE BOLEL VEB AN. nr 5 blz. 88. 
H-BREEK 7 OI4EBE 978 A‚N. nr 5 B6. 
5-D-R UOSED B75 A‚N. nr 5 87. 
KOPPEL UBZES BIB AN. nr S 4B. 
65C3Z BOZES BIE AN, nr 5 17. 
APPEND DU4IG BEL A‚N. nr 5 37. 
CHECK BEIZA BEE A‚N. nr 5 48. 
GEILL BP7IE BEA AN. nr 5 21. 
GF-MOD4 2O47E BIZ A‚N. nr 5 2l. 
DSIZE 2900 AFAF @827D 897 AN, nr 5 59. 
ZUIGMUI 2943 AFAF @1055 BIA A‚N. nr 5 Ai. 
ATCALC 82289 8202 VIA DAB AN. nr 5 18. 
MCAT 2388 AFAF D24Z7 BBB A‚N. nr S 52. 
MDCR-2. 2982 AFAF OZE99 DCB AN, nr 5 Bi, 
SEARCH 2903 AFAF @034D OFF AN. nr S 36. 





DE VOORPLAAT: 

De voorplaat van rmummer 4 was semaakt door ANDRE DE BRUIN hetseen 
verzuimd ig te melden. waarvoor excuses. De voorptaat van dit 
nummer Kant vit Limburgs en iS semaakt door HANS HEUTS. Ì 


DE ENQUETE: 

De vitwerking van de enavete eist meer tijd dan was sepland. zodat 
U de uitslag in het volsende nummer kunt aantreffen. Ornseveer 508 
tormutieren mochten Wid retour ontvanset: zodat 30% sereaseerd 
meeft. Dit is een bijzonder Mhose scores waarvoor onze dank. De 
memerkinsen, die op een uitzondering na: Positief waren, zuilen Wid 
ter harte nemen. 


RESIOBLADEN: 


DE CURSOR nr 4. (brabant) 
Debneispelts C=K Operatina systems Procedures en functie's koppelen; 
Diverse fFrosramma'ss Commando's voor de inktjet printer. 


BRONSUROEN EIKELTJE nr. & (limbure) 

Vertaling maruval van het COS sebeurent LF-freaventiemeter: 
Talstelselst sewijziade reset-routines Statement PLIST: Wordeack 
wijzisings Printercoderins voor de Gemini 10X5 5 Morse prosramma’ s. 


BRONSGROEN EIKELTJE nr. 5 Ctimburs) 

Een cpiossins om de ruis van het scherm te laten verdwijnen 
Vertalins manval arrays #n vectorens Teiroutine voor infomactert 
ATOM STEREO setuids processor 


ERRUR 34 ur. &  Cnoordnottand) 

GFILL -statements Computerjdarson verklaard: Prosräanma's CHECK 
APPEND VERIFY: DISKDRIVE probtemen 

DATACHECK n:. 4 (den haas) 

Vervolg van het ASBK schakeltsysteems Assembler voor de 65C82: enise 
wist U datves 
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In de ontvansen post werden enise vrasen sesteld, waarvan de 
antwoorden voor anderen OOk belansrijk kunnen zijn. 

1, In het sector perosramma kan de subroutine #E223 verwijderd 
worden. Deze subroutine zet de catalos in het seheusen. Wanneer in 
de eerste twee sectoren op Schijf zich een DISK-ERROR bevindt, 
wordt het prosramma veortijdis beeindigd aansezien hierin zich de 
catalos in bevind. 

2. Bij het sebryik van toolboxen Kan het sebevren dat de ftite 
“vreemd” op Schijf terecht komt en niet meer te laden is. Dit 
vreemde is echter niet zo vreemd: maar iS net gsevols dat vete 
tooltboxen met DOS zeropase adressen werken. Vooral wanneer #AC 
Wordt sebryikt, waarin de avalifier staat waaronder de tijte op 
schijf wordt sezet. Door deze avalifier met *SET op de waarde te 
zetten van de fiie op Schijf, Kan de file weer setezen worden. 

5. Diverse problemen met de orsirele ATOM DISKDRIVE waarin een 
OLIVETTI drive wordt sebruikt: list meesat aan de drive. Een 
pasklaar antwoord is MOPilijk aan te seven. Wel is bekend dat er 
een aantal zijn seleverd met een voedins voor aanstuitings op 242 
VOLT hetseen in Enseland sebruikt wordt, Zodoende wordt er seen 5 
en 12 volt seproduceerd. Ook schijnt er een microswith voor track @ 
detectie niet feittoos te werken. Temperatuursevoetisheden zijn ook 
reeds semeid. Het arobleem wordt dan altteen maar sroter door het 
atseven van DISK-ERRORS welke niet aanseven wat er met de drive 
tout is: Maar alleen aanseven wat de DOSCONTROLIER heeft 
seconstateerd, 

4. Dver de variabelen kwam een vraas wat X=XX/1 betekent. X is een 
intesere variabele waarvan de berekenins in de basic-interpreter 
seschiedt. #*X is een floating point variabele waarvan de 
berekening via de floatins Point gaat. Beide variabelen hebben een 
eisen stack. Met X=XX wordt de waarde van de floatins point 
variabele aan de intesere variabele toesekend. De intesere 
variabele wordt hierbij ontdaan van de waarden achter de komma 

5, Met PUT, BPUT en SPUT wordt iets in een random fite gezet, Met 
GET, BGET en SGET wordt iets uit een random fite setezen. Indien de 
volaorde bij het tezen van een random file: anders is damn bij het 
schrijven: Krijst men verkeerde waarden. Dus bijv. bij het 
schrijven 5 x PUT, G x BPUT en 5 x« PUT moet selezen worden mat 5 x 
GET, 4 x BGET en ZS x GET. Gaat men nu Jezen met 3 x GET, à x BGET 
en 5 X GET, dan krijst met andere waarden dan men heeft seschreven. 
Dit is het sevols van een foutieve prosrammerins, 

5. Vele problemen waarvoor gebeld wordt zijn terus te voeren tot 
“TOP problemen. Hij net inladen met DOS of COS statements wordt de 
TDP van het proeramma NIET soed gezet. Dit doet men met het 
statement OLD of END. De basic-statements voor DOS of COS sebruik 
zetten de TOP wet aoed. MAAR deze statements mosern niet in een 
erosramma sebruikt worden omdat zijn als startadres het begin van 
het erosramma gebruiken en als zindadres datos van het prosramma. 

7. CHARON is een programma dat de schrijf en leesvectoren constant 
Wijzìsd. Dit kan problemen veroorzaken met Prosramma's die dit Ook 
doen. CHARON dient dan te worden uitgezet met '#2BB=HFES4FES2. 

B,‚De catalos van een disk kan worden setedied met: 

7210508 LINK HE7SBsLINK #E74R. 








Indien U ook vrasen heeft stuur ze dan en wij zutten ze in ACORN 
NIEUWS beantwoorden. 
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ZREMvoor ser.d. maak resel B SOiverwiider O en jump nr 39 
ZREMvoor fulty ser.de in 39: U=4BO EN V=5 EN Wei 
GREMresel 115 is einde 
SDATA4E, 62: OD: Bh, 24: 55: B, 6O, 24, 62, B: ZO 
1DDATA2Z D,S,42, 22,15, 0,62: 22 10: B: 82, 22,60, B, 102, 22, 100 B 
iSDATAI22, 22, 120: 0: 142,22, 145, B, 162, 22, 170, D, 180, 130, 
2ODATAZOD, 22, 228, D, 204: 42, 250, B, 204: 562: 255 TP 2047 BL: 255, EA 

DATAZOÁG, 192, 255, 3D, 204, 12 Sr 120, E04: 145, 255, 155 

=ODATA13D, 146, 255, 185. 170, 14E, 220, 191, 150, 146, 140, 191 

ZEDATA1SG, 126, 168: 191, 150, 106, 190, 191, 150,35, 215, 1915 REMrDi yn 

ZOU=40DI Veri WE Zi REM////1.C. PLOTTING///HAHE. " B2//// 
4BaCLEAR4: GOS, 15K=5 

45F.0=BTO UiB=A. R. X210+20 CEA. R. K1S0+2B:D=A. R. 1210420 

SOPLOTA, B+C; PLOTE: D, C+ PLOTE, Ds (H/Z zU=U+ SO; IFU=450j= 100 

SSE=05DOPLOT 4, (1O+E): (10+E) FPLOTK, (25O-E), (LUHEN sREMKkader 

EOPLOTK, (230-E), (170-E) 3 PLOTK, C1B+E), (178-E) 

ESPLOTK, C1Q+E), CIOHEIFE=ERIJ IFE=SK=7 
7DU, ink=5tREMnetwerk 
75F, TO148;PLOT4, Q: 805 PLOT7, GQ, LET EN. 

80F, OTD14GS. Vs PLOT4, QG, E05 PLOTE, U, LEZEN. 

25F, ZTOLEES. Ws PLOTá: 20, B: PLOTE, 140, OiN. +PLOT4, 29, 80 

SAPLOTS, 140, EO: PLOTS: 140: 1E03 PLOTS, 20, 158: PLOTS: 20, ED 

S5Va=V-1 tWeWe ts IFW(2V=DS WEB 

1OARES, 3E. TOZ3:READX, Y‚ P, GQ 

1Q5F. 2=0GTO1ZIPLOTA, £X+Z), Y+PLOTS: CX+Z)4 CYHLSD IN, GREMvierhant 

11APLDTá, X, Y:PLOTZ, 1% B5 PLOTSE, B, 155 PLOTS, -15, 05 PLOTSE, B, 15 

1ISPLOT4, CX+EI, CY+6) HPLOTE, P‚ BN. 3, B-OTOZIIWAITEN, 16, 27 HAHE. 

1200F.B=18ET01875PLOTA, 20, O3 PLOTSE, 50, GIN. 5F. Gel 0187 

125PLDT4: 22, Ds PLOT7: 47, DiN. +PLOTA4, 18, 1814: PLOTS, 181: REMcha 

120PLOTS, 55» 183: PLOTS, AE, 165; PLOTS, 18, 1815 PLOTA, F5, 1E 

1Z5PLOTS, 57, 183: PLOT4, 36: LIEZI PLOTSE, Z6, 1875 PLOTA, 751 187 

14APLDTS, 57, 157: PLOTA, Ab: 18E4 PLOTS, 41, 1823 PLOTS, 41, 187 

1ASPLDTS, A4, 187; PLOT1E, 29, 1853 PLOT1S: 4E: LBTIR, 














































Een vergissing ís menselijk,maar 


om er echt een puinhoop van te maken, 
heb je een komputer nodig 
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ATOM-CALG 


ATOM-CALC IS DE ACORNSOFT VERSIE VAN EEN SPREADSHEET OF EEN 
VISICALC, 

DIT PROGRAMMA. WORDT GELEVERD IN EEN 2532 EPROM {VOOR OP DE PLAATS 
VAN [C-24), KAN JE BESCHOUWEN ALS EEN CROOT (EN DUUR) KLADBLOK. DIT 
KLADBLOK IS INGEDEELD IN VAKJES: 


52 HORIZONTAAL A-BK 
255 VERTIKAAL 1-255 


HET VAKJE LINKSBOVEN IS DAN A-1 EN HET VAKJE RECHTSONDER IS DAN DUS 
BK-255, 


HET BEELDSCHERM IS EEN VENSTERKTJE) OP DIT KLADELOK WRARMEE WE EEN 
STUKJE VAN HET KLADBLOK KUNNEN BEKIJKEN. DE BOVENSTE 5 REGELS VAN 
HET SCHERM ZIJN GERESEVEERD VOOR DE HEADER. 

DE PROMPT IS EEN NAAR LINKS WIJZEND PIJLTJE, EN DE CURSOR IS EEN 
BALK VAN B KARAKTERS LANG DIE ZICH GEDRAAGT ALS DE NORMALE ATOM 
CURSOR. HET BEELDSCHERM KAN IN ALLE RICHTINGEN SCROLLEN MITS JE 
NIET BIJ DE RAND VAN HET KLADBLOK ZIT WANT JE KAN NIET Vv WANT JE 
KAN NIET (LOGIES), 

IN DE LINKER BOVEN HOEK VAN HET SCHERM (IN DE HERDER DUS) ZIE JE DE 
COORDINATEN VAN HET VAKJE WAAR DE CURSOR ZICH BEVINDT. DAAR ONDER 
ZIE JE DE INHOUD VAN DAT VAKJE (NIET DE NUMERIEKE WRARDE VAN HET 
VAKJE, DEZE ZIE JE OP HET SCHERM WAAR DE CURSOR ZICH BEVINDT). 
DAARONDER (DUS OP DE DERDE REGEL) STRAAT DE CURSOR EN DAAR 
VERSCHIJNT ALLES WAT JE INTIKT (MAX,32 TEKENS) ALS MEN UP RETURN 
DRUKT DAN WORDT WAT JE NET HEBT INGETIKT OP DE TWEEDE REGEL GEZET 
EN ALS HET MOGELIJK IS DAN ZET ARTOM-CALC DE NUMERIEKE WAARDE 
HIERVAN OC DE PLAATS WAAR DE CURSOR STAAT. DAT VAKJE BEVAT NU PUS 
WAT JE NET INTIKTE, 


OH JA, HET OPSTARTEN... 

ALS JE IN (ATOM) DIRECT MODE 'CALC* INTIKT DAN WORDT ATOM-CALC 
OPGESTART. HET GEHEUGEN WORDT NU SCHOONGEMAAKT EN DE HERDER 
VERSCHIJNT MET EEN COPYRIGHT MELDING. OM ATOM-CALC TE VERLATEN MOET 
JE OP BREAK DRIJKKEN. 

MAAR OH JEE, JE DRUKT PER ONGELUK OP BREAK EN JE HEET DIE HELE 
MIDDAG JE KASBOEK IN ZITTEN TE TIKEN! ALS JE NU 'CALC' INTIKT DAN 
WORDT JE WERK TENIET GEDAAN, NOU GEEN PANIEK: TIK DAN ‘CALCR' IN CN 
DRUK DAN OP LOCK (DUS ALS JE AL WEER IN RTOM-CALC ZIT) EN ALLES 15 
WEER ZOALS HET WAS VOORDAT JE OP BREAK DRUKTE (MOOI HE). 


HET INVOEREN VAN DATA: 
ATOM-CALC KAN 5 SOORTEN VAN INVOER RAN NL. t 
LABELS BV. FRED 
GETALLEN BV. 2001 
FORMULES BV. CA-1+E+BZ) 
OF BV. £SINCAZ)) 


EEN VOORBEELD: 


ATOM-CALC [ XAVIER VAN UNEN L ACORN NIEUWS IPRG. 1j 
START MET EEN SCHONE LEI (DUS BREAK EN 'CALC'). 

DE CURSOR STAAT NU OP A-t, 

TIK NU FRED IN. IN VAKJE A-1 KOMT NU FRED TE STAAN. OP REGEL 1 IN 
DE HEADER VERSCHIJNT NU EEN 'L" (VOOR LABEL). HAD JE NU EEN GETAL 
INGETIKT INPLAATS VAN FRED DAN HAD ER OP REGEL 1 IN DE HEADER FEN 
"V' GESTAAN tV VOOR VALUE, EEN WAARDE DUS OFTEWEL EEN GETAL OF EEN 
FORMULE: 

EEN ALFANUMERIEKE STRING (DUS EEN STRING DIE LETTERS EN/OF GETAL 
BEVAT) BEHALVE DAN COORDINATEN VAN DE VAKJES EN DE FORMULES, 
BEHANDELT ATOM-CALC ALS EEN LABEL. 

ALS EEN INPUT STRING NIET ALS EEN VALUE HERKEND WORDT DAN IS HET 
EEN LABEL EN KAN ATOM-CALC ER NIET MEE REKENEN, 








MAAR GOED WE HADDEN FRED OP A-1 GEZET, ZET DE CURSOR NU OP B-1 EN 
TYPE NU JAN IN. OP B-1 STAAT NU JAN. ZET DE CURSOR NU OP A-2 EN 
TYPE 18 IN, OP A-Z STAAT NU DE WAARDE 10. ZET DE CURSOR OP B-2 EN 
TYPE (A2+5) IN. OP B-2 VERSCHIJNT NU 15 EN OP REGEL Z VAN DE HEADER 
STAAT NU CR2+5). WE KUNNEN DIT VOORBEELD BESCHOUWEN ALS EEN TABEL 
VAN HOEVEEL ZAKGELD FRED EN JAN KRIJGEN. 

ZET DE CURSOR NU OP C-1 EN TYPE ERIK IN, OP C-2 TYPEN WE NU (R2-5) 
EN OP C-2 VERSCHIJNT NI DUS 5. NU HEBBEN WE HET ZAKGELD VAN ERIK ER 
OOK BI. 

ZET DE CURSOR NU WEER OP 8-2 EN TYPE 11 IN. B-2 VERANDERT NU IN 16 
EN € 2 VERANDERT NU IN 6. ATOM-CALC REKENT HET ALLEMAAL NETJES DOOR 
VOOR ONS, 

DIT WAS MAAR EEN SIMPEL VOORBEELD. INPLAATS VAN (A2-5) OPE 2 
HADDEN WE DOK BV. CSINCAZ#B2/2*PID)) NEER KUNNEN ZETTEN. WE HADDEN 
DOK BV. OP K-I9 (A23) NEER KUNNEN ZETTEN. ALS WE A-2 NU VERANDEREN 
DAN VERANDERT K-S9 OOK NETJES MEE, 

ALLE FLGATING POINT WISKUNDIGE FORMULES ZIJN TE GEBRUIKEN NL. : 





ABS ACS BEN ATN CDS 
DEG EXP FLT LOG Pt 
RAD RND SON SIN SOR 


WAT DEZE FUNTIES ALLEMAAL DOEN STRAAT IN ATOMIC THEORY AND PRACTICE, 
UITERAARD ZIJN DOK DE GEWONE WISKUNDIGE BEWERKINGEN MOGELIJK, MN. : 
+ __OPTELLEN — _AFTREKKEN 
* _VERM, {_ DELEN 
t_ MACHTSVERHEFF ING 


ALLE BEREKENINGEN WORDEN UITOEVOERD MET EEN NAUWKEURIGHEID VAN Zi 
BITS, TUSSEN 1E-3B EN 1E+IE 


KLLE ATOM-CALC COMMANDO'S BEGINNEN MET */'. 


/F 18 HET FORMAT COMMANDO. HIERMEE GEEF JE RAN HOEVEEL DECIMALEN ER 
2OETEN WORDEN GEPRINT. NA EEN /F1 WORDT 9.9 AFGEBEELD ALS 9.9, NA 
EEN /F@ eCEDT 3,9 AFGEBEELD ALS S EN NIET ALS 18. ATOM-CALC RONDT 
DUS NIET AF HIJ DRUKT ALLEEN HET OPGEGEVEN AANTAL DECIMALEN AF. 

kg NINGEN GEBRUIKT ATOM-CALC WEL DE GOEDE WAARDE ONGERCHT 








‘HES SDIO COMMANDO. MET DIT COMMANDO KAN JE SNEL NAAR EEN 
ADINGAT SPRINGEN IN PLAATS VAN MET DE CURSOR DAAR NAAR TGE TE 





PAG, 
GAAN. 
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STEL JE HEBT ERGENS STAAN SQRCA-1) EN A-1l IS NEGATIEF DAN ZAL 
SORCA-1) ALS EEN LABEL BEHANDELD WORDEN. ALS JE TOCH WILT DAT DIT 
ALS EEN VALUE BEHANDELD WORDT DAN MOET JE ER EEN "+' VOOR ZETTEN, 
DUS SQRLA-1) WORDT DAN +S0R(R-1), ALS A-1 DAN NOG NEGATIEF IS DAN 
ZAL INPLAATS VAN DE WAARDE VAN SQRCA-1) HET WOORD 'ERROR 
VERSCHIJNEN DP DE PLRATS VAN DAT VAKJE WAARIN SORCA-1> STAAT TOTDAT 
A-1i WEER POSITIEF WORDT. 


EEN PRAR VOORBEELDEN VAN TOEGESTANE FORMULES: 
1. 5230 C1e2Dk5/b 

Ant #6 A-i + BL — C1 

(BS + Ci) / Dit (B2 « A4) / 2.3 

A2 * 189 + BJB SINCR-1) « 5 

SERCABS CAL) 


EEN VOORBEELD VAN FLT EN RND z 

FLT (ABS RND % 18) 
ER VERSCHIJNT NU EEN WILLEKEURIG GETAL TUSSEN @ EN 18 OP DE PLAATS 
WAAR DE CURSOR STAAT. ALS JE OP LOCK DRUKT DAN VERSCHIJNT HET 
VOLGENDE WILLEKEURIGE NUMMER. 


COPIEREN VAN BLOKKEN IS OOK MOGELIJK: BV. ZET DE LABEL 'ATOMCALC 
OP RA-1. TIK NU '/R Al Ai Al E255' IN. IN DE HEADER ZAL VOOR 
ONGEVEER 1 MINUUT HET WOORD COPYING TE ZIEN ZIJN WAARNA 'ATOMCALC' 
IN ALLE VAKJES ZAL STAAN TUSSEN A-t EN E-255, 
MET /R CDPIEER JE DUS 1 BLOK NAAR EEN ANDER BLOK, EEN BLOK WORDT 
WEERGEGEVEN ALS DE BOVENLINKER COORDINAAT EN DE RECHTERONDER 
COORDINAAT VAN HET BLOK, 
ALS JE /R INTIKT ZONDER COORDINATEN VAN DE 2 BLOKKEN DAN HOOR JE 
EEN PIEPJE EN KAN JE ALSNOG DE COORDINATEN INTIKKEN. 
ALS JE GEWOON / INTIKT DAN VERSCHIJNEN DE COORDINATEN VAN HET VAKJE 
WAAR DE CURSOR ZICH BEVINDT. 
HET IS DOK MOGELIJK OM RELATIEF TE COPIEREN. ALS JE GEWOON INTIKT 
COPIEER DIT BLOK NAAR DAT BLOK DAN IS DAT ABSOLUUT COPIEREN. 
EEN VOORBEELD: 
JE WILT Al+1 NAAR 4 ANDERE VAKJES COPIEREN. ZET 1 IN A-1 EN Alt1i IN 
AZ. TYPE NU IN ’/R A2 R2 AZ ARE'. DAN VOLGT DE VRRAG ’'A OR R?' 
CABSOLUUT OF RELATIEF). 
ALS JE NU A INTIKT DAN GEBEURT ER DIT : 

R-1 A-2 A-S A-b A-5 A-E 

1 2 2 2 2 2 


MAAR ALS JE NU R INTIKT DAN GEBEURT ER DIT : 
A-1l A-2 A-T A-4 A-5 A-E 
1 2 3 4 5 6 
ZIE JE HET VERSEHIL? 
WE COPIEERDEN ZOJUIST A-2. A2 BEVATTE At+1, STEL DAT A-2 (B2+C2) 


BEVATTE DAN ZOU ATOM-CALC 2 KEER VRAGEN A OR R?, EEN KEER VOOR B-2 
EN EEN KEER VOOR C-2, 


ALS JE VEEL DATA MOET INVOEREN DAN KAN HET LASTIG ZIJN ALS 
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ATOM-CALC STEEDS WEER ALLES UITREKENT ALS JE IETS NIEWS INTIKT. OM 
DIT TE VOORKOMEN: TIK DAN /M CMANUAL) IN. NU REKENT ATOM-CALC NIKS 
UIT TOTDAT JE OP LOCK DRUKT, WANT DAN REKENT HIJ ALLES WEER UIT, 





EEN VOORBEELD: 
MAANDEN MET HOEVEEL EENHEDEN 





HIER VOLGT EEN TABEL VAN 1 
ELEKTRICITEIT ER VERBRUIKT IS : 


MAAND EENHEID EENHEIDSPRIJS PRIJS 


JAN zet. 08 9.35 11,85 
FER 187, 02 3,85 
MAART 257.20 12.85 
APRIL zie. G2 11.82 
MEI 245. 00 


JUNI 251.80 
JULI 2E4, AA 
AUG ú 

SEP 
OCT 
NOV 
DEG 





DEZE TABEL WIL JE Nú IN ATOM-CALC ZETTEN EN LATEN WE AANNEMEN DAT 
JE DE LAATSTE KOLOM (PRIJS) NOG NIET HEBT BEREKEND. 

IN A-2 TOT A-15 KOMEN JAN TOT DEC, LABELS VOOR DE MAANDEN DUS. IN 
B-2 TOT B-15 KOMEN DE VERBRUIKTE EENHEDEN VOOR DE BETREFFENDE 
MAANDEN. OP C-2 KOMT DE KOSTEN PER EENHEID 8.05 (GOEDKODP HE). OP 
D= KOMT CBZ * CZ). EN NU COPIEREN: 

{R D2 DZ DE DiS 

CB2 * C2) NU R INTIKKEN WANT DIT 

2 VARIEERT VAN MAAND TOT MAAND 
(E2 * CZ NU A INTIKKEN WANT DIT 
2 IS @. 85 





/S5 HIERMEE SAVE JE ATDM-CALC SHEET OP DISK OF CASSETTE. OP HET 
BEELDSCHERM VERSCHIJNT s"FILE?", NU TIK JE DE FILENAME IN GEVOLGD 
DOOR RETURN. NU VERSCHIJNT ER "RECORD TAPE". DRUK OP DE SPATIE 
BALK, EN ATOMCALC GAAT SAVEN. ER STAAN NU OOK 2 STERRETJES (xx) 
ACHTER DE RECORD TAPE BOODSCHAP. ALS ATOMCALC KLAAR IS MET SAVE DAN 
VERDWIJNEN DEZE STERRETJES WEER. 


/L NET ZOALS /S BEHALVE NU LADEN WE INPLAATS VAN SAVEN. 


/P HIERMEE KAN JE EEN SHEET UITLATEN PRINTEN IN TABEL VORM (ZOALS 
JE HET OP HET BEELDSCHERM ZIET DUS). 


/D HIERMEE OUTPUT JE EEN SHEET NAAR DE PRINTER. HET VERSCHIL TUSSEN 
{O0 EN /P IS DAT /0 EEN SHEET UIT PRINT ZOALS JE HET niet OP HET 
BEELDSCHERM ZIET. WAT IK HIERMEE BEDOEL I5 # PROBEER HET ZELF MAAR 
EENS, DAT IS MAKKELIJKER DAN IK DIT PROBEER UIT TE LEGGEN CIK (DE 
VERTALER) HEB NOCH EEN PRINTER NOCH EEN ATOMCALC IN EPROM, DUS IK 
ZELF KAN HET NIET PROBEREN EN IK WEET DUS NIET ECHT HOE HET ER UIT 
ZAL ZIEN. HET VOORBEELD UIT DE HANDLEIDING IS NOU NIET BEPAALD EEN 
VOORBEELD VON DUIDELIJKHEID). 
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Dit is een verhaal over de Atom strina bewerkingen. Het is seen 
hoosdravend verhaal hoe de Atom dit even netjes in zijn slimme 
ROMmen oplost: doch sewoon een verhaal voor de sewone Atom man, dus 
voor de Atom basic prosrammeur. 


Wat we eerst moeten weten is wat een strins is. Een string is een 
bepaalde rij tekens met een bepaalde lenste afsestoten met als 
laatste teken een return. . 

Wat we verder moeten weten is dat de strings ersens list opseslasen. 
De Atom is de zelfde mening toesedaan en reserveert, indien sewenst 
(1) een stuk seheusen ruimte hiervoor. Dit reserveren van ruimte is 
viteraard aan bepaalde voorwaarden s@bonden: 

1 Er moet voldoende seheusen seheusen voorradis zijn voor de opslas 
van de string. Dit lijkt misschien wat onlogisch doch het is het 
zelfde äls: ik heb een blad met 6E nen, Ds iedere lijn past 1 
reset. Ik heb 72 resels om te schrijven. Past dit ja of nee. Cen 
wie het niet gelooft probeert het maar!) 

2 Men moet weten hoe lans de strins maximaal kan worden. Hier wordt 
tater nos op insesaan. 





Het Piaats bepalen waar de strine eventveel zou Komen te staan 
gebeurt met een DIM statement. Dit DIM werkt alleen vanuit een 
prosramma. DIM bepaalt zijn ruigte op een leuke doch rechtlijnise 
manier. Om dit eniszins te verklaren is iets meer kennis van de 
Atom nodis. Zoals Uu wellicht weet moet een prosramma ersens 
beginnen. Dit wordt bijvoorbeeld door de Atom sedaan na een BREAK. 
Ais uv seen RAM hebt op #299B dan wordt de wordt het pProsramma 
neergezet op #8200. Waar een prosramma saat besinnen list vast in 
een bepaalde waarde. Zo ook de textspace pointer. Dit is een duur 
woord voor een soort biadwijzer. Uw computer senheusen is dan het 
boek en de textspace pointer iS de biadwijzer. Deze wijst dus raar 
het begin van het prosramma. Deze bladwijzer wijst dus iets aan 
Daarom heet zo'n dins een pointer. Die pointer is ?18, 





Terecht zult u denken als het besin vast list, dan zal het eind dus 
ook wel vast moeten Iissen. Waar en niet waar, Een prosramma van 10 
reseis neemt. beduidend minder plaats in dan een prosramma van 100 
vesels. (wie het niet selcgoft: proberen maar!) In de Atom zit een 
soort teller dat het variabele eind van het prosramma in de smiezen 
houdt, Deze tetier heet TOP. Ais dus een resel wordt ingetikt met 
een nummer ervoor dan wordt de telter dus verhoesd, en wordt arseen 
aen rveselrnummer met een return insetikt dan wordt de waarde 
verlaasd. Wat sebeurt er nu na een DIM statement: De Atom Kijkt 
waar de teller op staa (let op dat ik met opzet niet schrijf: 
kijkt waar het einde van het programma iS) en reserveert een aantal 
bytes. Ais u zeet DIM A7) dan worder dus 7 bytes Sareserveard \CO1 
A. Ais u ny nos een DIM seett bij voorbeeld DIM BS) dan werdt 
acher de Tuimte die at voor fwas gereserveerd: no9 een svUKie 
gereserveerd vonr B, 





dat de sereserveerde ruimt vast iG9t voor A ern voor 





En is het nu z 
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B? Nee, was dat maar zo. Met een DIM lest u namelijk atten vast 
waar $A of SB saat besinnen. Als S$A dus een lenste zou Krijgen van 
8 ot meer: dan Zit hij dus vrolijk het het werksebiëd van $B zonder 
dat je een ERROR naar je hoofd seslinserd krijst. 


Zoais sezesd lest u dvs de besirwaarde van de strins vast. Deze 
wordt vastselesd in de variabele die u ĳpaeetft in de dim. Als uv dus 
zest DIM ACB),BLE4) dan krijst A bijvoorbeeld de waarde #23A2 en B 
de waarde #28A7. Dit houdt dus in dat u variabelen A en B niet meer 
in het prosramma mas aaan sebruiken want dan bent u het adres Kwijt 
waar een eventuele $A zou moeten komen Kwijt. Probeer maar eens: 


18 REM STRING DEMO 
28 DIM AC1B),BCE4) 
38 PRINT &?18° 

48 PRINT &TOP' 

58 PRINT &A" 

58 PRINT &B 

78 END 


Met DIM seeft u dus een waarde aan een variabele. Als A dus bij 
voorbeeld de waarde W2999 zou hebben en u tikt in in de commando 
mode $A="GEEN ASSEMBLER DOCH EEN TOP CURCUS“, dan maakt het seen 
verschit of u intikt PRINT SA of PRINT $#2999,. Het is dus keihard 
tout om het voltsende te doen Cen ik weet zeker dat ieder een zijn 
hoofd er al eens mee heeft sestoten): 


18 REM FLUT DEMO 
28 DIM A£17) 

38 A=#1008 

48 $A="FLUT TEST" 
58 END 


Een tweede punt waar we op moeten letten is dat de ruimte die voor 
de strins wordt sereserveerd niet automatisch wordt schoonsemaakt. 
Dat wii zessen dat al u intikt DIM A(9):, de ruimte voor de 9 
posities voor $A volt met witlekeurise rommel staat. Het votsende 
voorbeeld is dus gevaarlijk, 


18 REM GEVAARLIJK DEMO 
20 DIM ACI) 

38 PRINT $A 

4B END 


De lenste van een string wordt bepaaid met de instruktie 
LEN(expressie,;of variable). De instruktie PRINT LEN(A) zoekt van af 
het besin van A naar een return: net zolans tot hij deze sevonden 
heeft en _ print deze. In plaats van A had er dus ook weer mosen 
staan #29AD of iets derselijks 


lets anders wat we cok nos kunnen dimetiocneren dat zijn zsn. 
Arrar's. Een array is een rij sesevens in de meest elementaire zin 
van het woord. Meestal hebben de elementen een onderlinse relatie 
bijvoorbeeld de temperaturen op eerste kerstdag 1985, Element @ 
Kog ondeert dan met tijdstip 0.08 en etement 23 met het tijdstin 
3. 
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Ook hier seldt weer pas op met dimentioneren want als uv zest DIM 
AAL2S) en u schrijft wes RAC2S), weerderom weer seen error naar het 

hoofd seslinserd: doch wel fout: atthans niet betrouwbaar. De 
standaard Atom rom controieerd de zen. indices niet. Hetaas. De 
verklaring uit de Atom manual is dat het tijd zou schelen. En. 
inderdaad het scheelt veet tijd in het foutzoeken als je niet weet 

waar je het moet zoeken, maar dit terzijde. Gelukkie is er door een 

st imme vogel uit het hose noorden een slimme P-CHARME 
uvitseknobbeld, die in ieder seval de indices bij mytti-dimetionale 
arrays in de peilins houdt. Het dimetioneren van een array, 

bijvoorbeeld CCC180) heeft nu niets met de variabete C uit te staan 
CCC27) en C mosen dus onafhankelijk worden sebruikt. 

Een simpel voorbeeldje voor het resistreren van de temperaturen. 


18 REM TEMP DEMO 

28 REM A= HULPVARIABELE 

38 DIM AACZ4D 

49 FOR N=D TO 23 

50 PRINT "BRENG IN TIJDSTIP" N' 
68 INPUT A 

70 AAC) =A 

88 NEXT N 

28 END 


Wat aan dit voorbeeld opvalt is dat het niet is toesestaan om te 
schrijven INPUT AACN). Dit resuiteert in een dijk van een error. 
Een andere methode is een gecombineerde array en string. Zoals u 
weet list het adres vast van een string. Dus kunnen we dit ook vast 
lessen in een array element. Probeer het volsende voorbeeld maar 
eenst te doorsronden. 


18 REM ARRAY STING DEMO 
28 DIM CCC120) 

30 FOR Ne TO 19 
48 DIM BC19) 

50 CCD =B 

55 SCC CN) =" ATOM" 
EB NEXT 

7a 

88 FOR N=@ TO 10 
98 PRINT &CCCN)" 
1088 NEXT 
118 END 


Wetticht dat uv nu het erosramma uit de manual bladzijde E?2 nu ook 
beter beerijpt. 

Wat uit dit verhaal duidelijk al zijn eeworden is dat c2 waarde 
van TOP heel ers beiansrijk is. Zors dat deze soed staat. Als u een 
prostamma laadt met bijvoorbeeld #*LOAD “DEMO, dan wordt top niet 
automatisch op de juiste waarde gezet. Sterker nos hij blijft staar 
oe waar hij stond. Als deze dus bijvoorbeeld op #2902 staat em u 
begint een prosramma te runnen, dat een DIM in zich heeft, zes cn 
maar baai baai zwaai Zwaai tesen het prosranma want =r Wordt ruimte 
sereserveerd vanaf #2902. En daar stond nou net het prosramma. Geet 
dus aitijd een END commando als je niet zeker weet of TOP soed 
staat. 

Tst zover de strinas en arravs vaar dete Keer, 
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65C02 


Zoals iedereen waarschijnlijk ai weet is het brein van onze ATOM 
een 6592. Vanaf de prosram counter wordt een byte de 6502 
binnernsehaald en behandeld als oecode. Afhankelijk van welke 
adresserinssvorm deze byte aansseft zijn er gen of twee of helemaal 
seen oftsets nodis waarmee de 6502 verder kan. Er zijn dus 
erincipieet 256 verschiltende opcodes mosetijk. Als we ATOMIG 
THEORY AND PRACTICE bekijken zien we dat lans niet aile mogelijke 
opcodes Worden Ssebruikt. Ris de 6502 tijdens het runnen een niet 
bestaande opcode tesenkomt dan zal de processor locken en Kan men 
atteen met BREAK verder. Zoals ook at in ACORN NIEUWS nri Jaarsans 
3 biz 22 te lezen valt zijn er sinds kort twee nieuwe tijspen 6582 
op de markt nl. de BSCB2 en de RESCUZ. De RESCOZ onderscheidt 
van de 65C02 door 4 extra instructies te weten BBS,BBR,SMB en 
De extra opcodes Welke deze tijpen microprocessors besrijpen zijn 
sveneens in bovensenoemd artikel beschreven. Het zou eenvoudis zijn 
om een assembler prosramma te hebben dat op de ons bekende Wijze 





deze opcodes senereert vanuit de source listins. Ik heb setracht 
dit te doen door de bestaande assembler in FROM aan te passen. 
Uiteindelijk Wit ik de nieuwe assembter terus tn FROM zetten 





hetseen sean probleem optevert als men de sewijziede RESET FROM al 
heeft insebouwd. Er wordt in de vele erosrammas die er voor de ATOM 
seschreven zijn niet of nauwelijks sebruik semaakt van subroutines 
vit de assembler. Alleen H#FZS1 wordt. weleens sebruikt, Met de 
hierna seseven assembler is het mosetijk om slechts de tabetlen te 
verplaatsen zodat blijvend sebruik kar Worden semaakt van alte 
Subroutines, Deze tabellen moeten worden verplaatst omdat de nieuwe 
assembler tanser is dan de oude. 


In het uitspitten van de oude assembler ben ik wat leuke annekdotes 
tesensekomen die misschien niet iedereeen al weet. 
1) Achter alte oprcodes met offset kan men tekst plaatsen zolang 5 
er niet in voorkomt. Dit heeft seen effect op het assembleren. 
b.v. PLA #88 

RTSterus naar basic 

LDA 9#34 inittatiseer letter 
Het is niet nodie om eerst \ te seven voor de tekst, Bij het 
assembieren wordt de tekst wet op het scherm weerseseven. 





2) Men Kan iP. Ve TC ook LINK #F2AC seven zodat b.v. 
LINKHF2AC:PLA;GRTS seidie wordt vanuit een basic prosramma. 


5} Het is ook toesestaan om spaties te seven tussen de 
verschiltende source code namen. 
b.v. LDA SHI4 is hetzetde ats 

LDA 8#T4 


4) Het is mogelijk om voor een iabet 2 letters te plaatsen zodat 
het iets duidelijker wordt wat een label betekent. 
b.v. tTO:LLS4ARTS 

4&OTO:LLIEBRK 
Het is echter niet mosetijk om dit te doen in een offset b.v. BEG 
TOLLZ4., Men Kan echter wet na een t et reseinummer Steeds twee 
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letters otaatsen. Zo is ;TE:ISTIRTS soed ot 4@TE:ST:LLSPLAIRTS 
eveneens, 





5) Als men de assembter Uit wil dan moet men dit natuurlijk doen 
met 1. Als men echter eerst een spatie zeeft dan ziet de assembler. 
het J teken niet als einde assembler zodat een error optreedt als 
hierna een basic statement staat. 

b.v. 3 IHPRINT "A" geeft een foutmeldina. 


B) Door de adressinssvormen immediate in accumuiator b.v LDAA#Z4 en 
LSR A kunnen labels zoals 98 en AA niet worden sebruikt omdat de 
assembler ze ziet als adresserinss vormen. 


7) Als men een adres Wit berekenn kan men ( niet sebruiken omdat 
dit dan wordt sezien als een indirecte adresserinssvórm. 


Om nu terus te komen op de 65CO2 valt het op dat niet atie opcodes 
een losische waarde Konden krijsen zodat de nieuwe assembter voor 
deze vitzonderingen een Kleine aanpassin noodzakelijk was (regels 
1488 — 1578). De nieuws instructies en nieuwe adreserinssvormen 
worden in reseis 1329 tot 1398 moseiijk semaakt. Vanaf resel 1190 
tot 1318 worden de oude tabelten verplaatst en het prosranma begint 
met een Klein interpretertje waarvan de bedoelins is dat hij naar 
#1000 wordt seassembieerd. Dit kan ook naar #A000 maar dan moet op 
resel 1159 de JMP #A0D2 veranderd worden in JMP #C55B. Men kan de 
nieuwe assembler bereiken door ( te sebruiken en door ) weer 
verlaten. 


b.v. 19P=#2800 
28 
ZEPHX 3 PLXERTS 
48) 
SOEND 


De betekenis van de verschillende nieuwe instructies stonden al in 
acorn nieuws: hier volst siechts een ‘ijst van aile nieuwe opcodes 
met de instructie erachter, 


PHX HDA implied ORA #IZ indirect TRB #&1C absotute 
PHY #5A implied SBC F2 indirect TRB #iá zero 

PLX #FA imotied STA #92 indirect TSB #20C absolute 
PLY #7A imptied ADE #72 indirect TSB #04 zero 

DEA #3A imptied AND #32 indirect 

INA #1A imptied CMP #D2 indirect 


BRA #83 retatiet EDR #52 indirect 
LDA #B2 indirect 

JMP #7C indirect;:x STZ #9C absotute 

BIT #83 immediate STZ #54 zero 

BIT #34 zero,x STZ #74 zero: x 

BIT #5C avsolute,x STZ #IE absoluterx 


De opcodes die seen losische waarde konden krijsen zijn: 
JMP (#BO,X) seeft #4AB moet zijn #7C 


JMP (#2345) geeft #51 moet zijn HEC 
STZ #W2545 seett HEC moet zijn #SC 
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STZ #21245,X seeft #7C moet zijn #9E 





BIT @#34 seeft #20 moet zijn #89 
Deze ontosisihe opcodes worden àl in het assembler prosramma 
se. rigserd. Rest nes te vermelden dat als er nu een fout optreedt 





in sen assembleer prosramma de seseven error nummers anders zijn. 
Bij mij seeft 


ERRDR 7E foute opcode 
ERROR 24 onjuiste adreserinasvorm 


Ik denk dat ap scortselijke wijze de laatste 4 instructies bij te 
maken zijn maar de RE5SCOZ heb ik nose niet kunnen bemachtisen 


natste sobookeabeokentenpnkonpookekenpn nbspen aes ekke 


ak wet: 
+ ASSEMBLER VOOR DE ESCO2 ** 
et: ek 
Ed Ed 
had DOOR B, KASTEEL hill 
Hek ek 





ekeren ofenpspenkenbeobraaoofoopenpeopafenp eneen 
SBREM JOSEOX IN VOET 5 

188 &BEFF=ROTIDIMLLCSO) +P. SIE 

110F, I=OTOZDILL EIJ =d EN. 

WAAR ASSEMBLEREN "D 
12CD+1)=0IP. EZEL 









1EDLDYEOTILDACHDS) , YECMPOEZCHEED 1E+A: JMPHADBE 
17B:L AFTEN, tA=LL1 3 GEA 

1EORELOCHFZS1 , #FS2B: A 

1982 CA+1S9) HEEF ICAHITAI HEC 

200P=A+505 FEL DXOKAAT Hs rSGIIETMP 7E1+A: X5 1 
Z1OP=A+ZIBFELDY SE1+A: Xr 13 P=AHEESICLDA S41+A, XF 
220 +SEDICLDY 1021+A, X5 14 +SESILCLDA 1147+A, X5J 
ZEOP=A+S3LICLDA 1101+A: X3 13 P=A+S4ZICLDA 11E5+A: X5J 
Z4BP=A+S4TIELDA 1149+A, Xi 1 

£52F. I=0T0#40 

250? CA+7B1+I) 
278?CA+I41+ID 
ZEEN. 

290or. I=OTONZE 

3007 CA+ILDI+IN=2CHFIELHIN FP CAHII17+ID= 
318? CAHIIEEHID=?CRFIFEHID 2 CAHLL4S+ID =7 
Z2EN. 

336 LA+1130) =KCHIICAH11GE) HDA PCAHLIGE) HOTIICAFILEL) HOT 
S4GTCAHILI DI =D CR+1B55) =H07 

350! (A+B46E) =HOHSBBREAS ' (ALE) =H747274 72 

TEA! (A41 006) =&7AFASADA: ! (A+1G56) =40DADODAD 














CHFLS4HI) +? CAHBEI+I) ==? CHF1IGHID 
CHFZIG+IFPCAHIOZLHID ==? CHFLSOHID 








CHFEDS+ID 
CHF2OEI) 
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370! (R+85D) =HASLCS5T2IG ! (A+3TD) =R7ECLCAES 

380! CA+1010) -#ECBOLAIA: ! (A+1090) =KZIOCODED 

330! CA+B5AI EHADAC: ! (A+3TA) =HDECE 

400! CA+1914) RQCICS ! CA+1094) =HILOE 

410F. I=0TO1 

420P=A+EE7 3 Z=PSCLDKXARDAF ISR O3 CMPIRZCI BECLLA s DECADE: LDAHDF 
AZOCMPA#OB ; BEGLLEs CMPAROL s BEQLLS: CMPO#O2I BEOLLSS JMP S2i+A 
GB: LLSLDAKGE : CMPAH4T 3 BNELLS 3 LDAOHE7 ; STAHEE 

45 LSLDXAKDDI JMP 522+A 

GEB: LL4JSR Q5CMPO#SE: BEGLLEIJMP S21+As:LLEJMP SEE+A 
&7DLDAKEG s CMPA#2C + BNELL7 ;LDRO#95 s STAHEE 

488: LL7ISR#C7BB; RTS 

4 SOL DXOHDB ; LDAHEE S CMPOH4L + BNELLIS LDAGHEE: STAHGE 

500: LLSIJMP 522+A 

S1OLDXARGC : LDAHGESCMPOKECIBNE LL143LDAO#3C+STAHGE 

5205 LL L4AFMPRFAIB 

530LDY#25: BEQLL 133 LDAHEE 3 CMPOHEC + BNELL 153 LDADORBE : STAKES 
S&O: LL1SJSR Gs RTS; 1 

SSN. sL=P 

SEDP=A+4IILIMP EE7+AINDPI Is P=RAHASIILJSR 72E+ATJ 

570 +4GIEILIMP 757+A5 Is P=A+AG7IEJMP 752+A3NOPGT 
SETP=R+IB2ILJSR 767+A:J 

590?D=#4D3 2LD+1) =#BF IP. $5 

52aP. “TOT #"&CHAF+1143+D) 

618END 
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Ik schrijf dit stukje: ats reaktie op het artikel in 'ACORN NIEUWS 


Zr5' en wet om de volsende reden 5 


Een floppy disk heeft aan de binnenkant van het hoesje: een vilte 
beschermiaas zitten. 

Dit vilt bestaat vit raafijne haartjes, die in de draairichtine 
staan, waardoor ze het schijtje schoonhouden. 

Ris wij nu zo'n Schijf omdraaien, dan saan we deze tesen de stand 
van de haartjes in draaien. Ik heb nu vier jaar ervaring mat disk 
en vond op 'n bepaald moment ook deze verdubbetinss methode, Altes 
sing soed totdat ik ontdekte dat er een aantal schijfjes beschadied 
waren: en er seen enkel prosramma meer vanaf te krijsen was 

Dus men is sewaarsrchuwd Voor de moseliike sevolsen. 
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Het GFILL-statement van ROB van DORT versneid. 

Omdat de machinetaa!t van het statement zo Kort moselijk moet worden 
aehouden, bern ik Saan Kijken hoe dat bij GFILL moselijk was. Het 
Lijkt mij dat ik hierin seslaasd ben, aansezien ik de 
erosramma-tenste en de werktijd heb kunne halveren. Lover het 
bijsesteverde test programma deed het oude statement 88 seconden en 
het nieuwe Stechts 43 seconden) 


De werkwijze van invulten van het figuur is hetzelfde sebleven. 


B PROGRAM GFILL, STAT 

18 REMzie acorn-nieuws 5,2 (mei '84) pas, 2 
20 DIMFF18:F. N=DTO1EGEFFN=-1 iN. 
GOS. a 





48 P.$6: 
GFILL":T=T+L. T 
FO/Z5EN#EDI TT? 1=FFAA2SEF TI 280 TTL 





78 T'i=PiE. 

8OaX=t573Y=H52I B=I0TCe31 35 HIL Ve DE iN RIA 

Ss 

33:FFO JSRHCBBCIIJSRHC2EL 3 JSRHCEBC 5 JSRHCAEG 

128 LDA#ZE, X5DRAH32: X5ORAHA Ls X5DRAKZG, X3 ORARZS, X3ORAHAD, X 
119 BNEFF2 

128 LDA#LA4, X5 STAX 

1358 LDA 5, X5 STAY 

148 LDAAO; STARSB; STAHSD 

158 LDAAZ:STAHSE: JSREF 17; STAR 

158 JSRFF1S;CMPBIBEGFF4 \klaar als buiten Scherm 

178 STAB:STY#SE:JSRFFIE:ICMPBIBNEFFI \klaar als punt alt seset 
188 INCESEIJSRFFIS;CMPB;IBEGFFA \ktaar als kleur = achtersrond 


LDAB5 STACHSF) , Ys INCHSE s BNEFFZ 
LDAB; STACHSF) » Yr JMPFFG 

LDXS; BEQFFAIDEXSDEXsLDA#1Ai, X7 STAY 
LDA#108, X;STAXISTKS \puil XY 
LDA#EOG1 ; BMIFFE 
DEC#O4FDECHOGIJMPECSSB \k laar 

INCX \sa naar rechts tot punt seset of buiten scherm 
LDAY 5 STARSCHLDXX 5 INX; BEQFF7 + STXRSA 
JSRFF 186; STAB: JSRFF 18: CMPB; BEGFF7 
288 EORBs ANDCHSF) Ys BEQFFS 

290:FF7 LDAOIFSTAV;STAWS BNEFFS 

302:FFE LDAY:STAHSCILDYX: BEGFF23DEY;STY#5A 





z18 JSRFF18:STAB \kijk of linkerkant lees is 

z20 JSRFF18;EORB:ANDCHSF) , YE BNEFF 25 DECX 

S30:FF9 JSRFF173INCHSE \kieur pixel 

z40 LDYY: INYsBEGFF1O:STY#SC 

350 JSRFF1B:STAB \kijk boven 

268 JSRFF18:CMPB; BEOFF 12; EORB5ANDCHSF), Ys BEGPFIL 
STOzFFIOINY 

SEO: FF11TYA:EORV:BEGFF1IZ 

332 TYA:STAVEBNEFFIZILDYYs INYSJSRFFIS \pusn X,Y+1 
AOB: FFIZLDAXISTAHSAILDYYSBERFFIJSDEYISTY#SC \kijk onder 
418 JSRFF18;STAB: JSRFF 18: EORBsANDCHSF) , Ys BEOFF 14 


620: FFISINY 

430: FF14TYA:EORNG BEOFFS 

44® TYA:STRW:BNEFFBILDVYsDEYIJSRFFIS \push X: Y-1 
AAS HNEEFS 
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45: FF1SLDXS:LDAXISTANIDD, X: TYAISTARLOI, Xs INKSINK \pusm X:Y 
468 STXSSBNEFFIE:PLASPLA:IJSREFDIAIJSRHFDIA \stop want stack vol 
478: FFIERTS 

488: FF17LDAX ; STAKSA:LDAY $STARSC 

GSO FFIBJMPONIFE) \inkteur routine 

ke | 

518 R. 


Het test prosramma. 
B REM DEMO GFILL 
18 GR, :!8=15?12=0 
28 MOVEG, OQ: F‚ N=1T0SE5PLOTELA. R‚ K25E) CA, R‚ A132) IN. 
48 GFILL1O GE. 


En voor diedene die nos sneller Wilten, een orosramma dat atleen 
werkt in mode 4. Het is atleen niet geschreven als extra statement 
omdat ik niet in het bezit ben van P-CHARME, Je kunt erzelf een 
statement van maken, maar je Kunt ook het startadres in resel 10 
veranderen. 

CZeBbkxxxiP=Z) en de routine dan aanroepen met: 

X=A3Y=BiLINK Z 

waarbij A en B de cooordinaten van het startpunt zijn. 

Deze routine doet een veld in maximaal! 11 seconden ( het test 
prosramma duurt nv nos maar 3 seconden) 


8 REM FILL IN MODE4 
10 DIMFF17:F.N=OTO173FEN=-1iN. 5F,N=1T023P=#520;P. $12$21 
20 Y=#SCHB=RCHI S=RCI F VERT WERCTSE 
Za:FFO STYY 
4a JSRFF165BNEFFZ;STYS 
58 ANDCHSF) ‚ Y1BEQFF 2; RTS 
BO:FF1 LDYSsBEDFF33DEYsDEY:LDA#1B1, Y5STAYILDX#LDO, Y:STYS 
TO:FFZ LDANBEGI + BMIFF4 
89:FFS RTS 
30:FF4 INX:BEGFFS:JSRFFIEGANDAKSF) , Yr BEOFFA 
189:FFS LDA9LISTAV; STAWI DEX 
110:FFE JSRFFLE:STARELSDRACHSF) , YISTACHSE) , Y 
128 LDYY;BEBFF7ILDYSE23LDAKG1 AND CHSF) , Y3 BEGFFS 
138: FF7 LDAA1 
140: FFE TAY:EORW:BEOFFIS TYA:STAWSBNEFFS:LDYY+DEYs JSREF 15 
150:FFS LDYY;CPYA1914BEGFF 10: DECHEG 
158 LDYDKEOs LDACHSE) : Yr INCHEOSANDHE1 ; BEGEF 11 
178:FF18LDAA1 7 
180: FF11TAYsEORV:BEQFF125TYASSTAVsBNEFF123LDYY: INYG JSRFFIS 
190: FF12TXA:BEQFF14SDEX3TKXASANDB7 5 TAYICPYO7 sBNEFFISGDECHSE 
208: FF13LDAEF7CI, YsLDYAZGANDLKSF) , Y3 BEGFFG 
21B:FF1AJMPFF 4 
220:FF1STYA:LDYS:STA#1B1, YI TKXAISTANIOD, Ys INYG INYISTYSSBNEFFL7 


250 PLA: PLA: JSREFD1A3 JMPHFD1A 

ZAO: FF1ETXAFLSRA:LSRAILSRA: STANSF 

258 LDA9#BF ; SEC: SBCY 3 CMP9KCOA; BCSFFO 

268 LDYA: STY#ED: ASLAS ROLHEO: SLA: ROLHEO 
278 ASLA; ROL#ED: ASLA: ROLHES ; ASLA: ROLHED 

Z80 ADCHSF : STAHSE $LDA#EDs ADCAHED: STAHED: TXA 
290 AND27 ; TAY;LDAKF7CH, VsLDYSO 

200:FFA7RTS 

183 


270 PF. SBN. FE, 
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TALSTELSELS 


Naar aanteidins van enkele vrasen betreffende het hexaderimale 
taistetset: heb ik een samenvatting semaakt uit een artikel van 
W.G.E. Wauters over taisteisels. 





1, Positionete talstetsels 


Om een hoeveelheid elementen aan te duiden maken we: in het 
aisemsen: SPebruik van de cijters? B, 1, 2: 5, ú: 5 6: 7: Ben 8 
Ook al bestaat deze hoeveelheid vit meer dan ‘tien’ elementen! Deze 
mos=tiskheid wordt ons seboden doordat NIET alleen het cijfer: maar 
Dok de plaats waar dit cijfer staat: bepalend is voor de 
getaiwaarde die dat cijfer voorstelt. Met andere woorden: miet 
alteen het cijfer: maar OOK de POSITIE: waar het cijfer staat, is 
van belana voor de bepating van de setalwaarde. We noemen zo'n 
talstelsei een POSITIONEEL TALSTELSEL. 





In een positioneel talstelset bepaten twee zaken de setaiwaarde: 
— het cijfer 
— de positie: die dat dat cijfer in dat setat inneemt 





We geven van het bovenstaande zen vaorbeeldi 

REET = 20000 + ZOUD + 1090 + 28 + 5 

Hoewel in het bovenstaande getal tweemaal het cifer 2 en tweemaat 
het zijter A voorkomt, is de setalwaarde van elk citer 
verschit lend. 





Opmerking: 

Niet etk talstelset is positioneet. Bij het turven van een setal 
wordt meestal sebruikt semaakt van streepjes (6). 

Zo krijsen we de valsende setalaanduidinsen: 

1e 2 = 08 £ = NEU 4 = SNN enz. 

Dak het Rameinse talstetset is niet zuiver positioneel: 

Iet V=S Xe=i0 L 59 C = 108 enz. 














Ze is: 
Iv=4 Vs =& VII = 7 VIII = 8 (niet positioneel!) 
CTLXXXVII = {niet positioneel!) 

Het tientailise stelsel 
In ons daseiijkse teven maken We Sebtrvik van het tientaliise 
stelseir dat wit zeggn: we Maken gebruik van tien SPertal= 
Symbolen om setatten oP te s£hrijven Tut. @, 1, Zr 5, 4» 5 6: 7, B 


„en 9. 

Met sebruik var deze tien sytboten heeft Tot sevols dat we na de 5 
men COMBINATIE VAN CIJFERS moeten Saan sebruiken om éen setalwaarde 
aan te seven. Zo krijsen na de 9 de waarden 18, 11, 12, (enz). 
Omdat we met het tientaltie stetet werken geldt ook het volgende: 
EZI45 = 60909 + 2008 + 10P + 48 + 5 
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= «10054 2e 1DE+ Tl ABG 1D Set 
= BelOrh+2k1DTI+ Inlet 1+S10D 





Opmerking: 
Wiskundis gezien is 1918 = 1 
Zo seidt voor alte setallen à (a): atB= 1 


Indien we de positie van eik cijfer vanaf de comma bepalen: dan 
zien we dat de positie van het cijfer: in het setat: de EXPONENT 
VAN HET GRONDTAL 1@ aangeeft, waarmee we het Cijfer moeten 
vermenisvuidisen om de setalwaarde van dit cijfer te bepalen. 


Ook in decimate (comma) setallen bepaalt de positie van het cijter: 


in het setal,: de exponent van het srondtal 19, waarmee we het 
citer moeten vermenigvuidisen om de seta!waarde van dit cijter te 
bepalen. 


Zo is 154, 234: 
LEIDT 2+SHIGT it IDD 2D -1+Ek1DT-2rbhkldr-S = 
1100+S5*10+Ge1+20, 1450, O1 +4, DOL 


Opmerking: 
Wiskundia sezien seldt voor elke waarde —n: 10t-n=1/18tn 


3. Het binaire stelsel 


In het binaire of 2-tallise talstelsel kennen we alteen de cijters: 
B en 1. Met behulp van deze cijfers Kunnen we elke hoeveelheid sen 
setalwaarde seven. De positie van elk cijfer is een exponent van 
het srondtal 2, waarmee we het cijfer moeten vermenievuidiesen om de 
decimale setalwaarde te bepalen. We seven hiervan een voorbeeld: 
binair setal: 10011 
decimaals Ik2t4+BK2TItOr2T2+IK2ti+ie2tD = 

IxiErBrBtDkhrlk2tiki = 19 





Omdat de computer de seheusenplaatsen in het interne seheusen met 
behulp van binaire setalten aanduidt (de adressen) kunnen we nu het 
votsende zessen: voor een computer die werkt met 16 binaire cijters 
bits): 

aantal bìts: 16 

aantal adressen (max.): 65536 (B&K) 

van @ t/m 55535. 


4. Het hexadecimale setalstelsel 


Hoewel de computer atleen met binaire setalten werkt, schrijft men 
meestal deze binaire setat len tn het 1E-tallise stelsel 
CHEXADECIMAAL) op. De reden hiervoor is dat de binaire setalten 
meestal uit veel cijters bestaan: en dat deze hierdoor moeilijk 
leesbaar zijn: waardoor men gemakkelijk fouten kan maken. 

Het 16-tallise stetsel bezit ZESTIEN VERSCHILLENDE CIJFERS, dus we 
moeten zestien verschillende symbolen hebben omt deze cijfers aan te 
duider. Normaal sesprokern worden deze als volst senoteerd: 
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binair decimaal hexadecimaal 
8200 [3 ® 
aes: 1 1 
2019 2 z 
2811 3 3 
8108 4 6 
@18t 5 5 
2110 6 6 
Stir 7 7 
1029 8 8 
1881 3 3 
1819 18 A 
1811 ii B 
1182 12 E 
1181 13 D 
1118 14 E 
1111 15 F 


Indien we met een hexadecimaal setalt werken: dan zullen we dat 
aanseven door de letter H achter het setal te schrijven. Bij 
binaire setalten de letter B, en bij decimate de letter D. 


5. Omzetting decimale naar binaire setalten 


Deze omzetting sebeurt met de volgende methode: 

we delen eerst het decimale setat door 2: de rest Schrijven we 
achter de —— en de vitkomst deten we weer door 2 enz. De resten: 
die bij de delinsen ontstaan zijn leveren ons het binaire getal. We 
tichten dit toe met enkele voorbeelden: 


15 ig 23 
2-8 Zl Zet 
8 8 11 
2-0 2-0 2-1 
& 3 5 
2-8 2e 2-1 
2 1 2 
2-8 2-=i 2D 
1 * @ 1 
2-1 2--t 
2 [] 


iED = 19000B IJD = 1101B ZID = 101118 


Let oe: setalttern, die in het decimale tatstelset niet repeteren: 
kunnen in een ander talstelsel, zoals het binaire: wet gaan 
repeteren! 

We kunnen nu ELK decimaal setal terusbrensen tot een binair setal. 
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6. Omzetting van hexadecimale naar decimale setalien 


25H = 2#1ET1+S*1ErDe2iEtS=E7D 

FFH IS*1ENL+IS*1ETD=2401S=255D 

FEFF 1S#1Et5+15*1EF2+IS*1ENi+15N 1610 
= E144B+3840+240+15=E5STSD 





7. Omzettins van decimale in hexadecimale setaiten 


Qok voor het omzetten van detimale in hexadecimale setallen kunnen 
We sebruik maken van de in punt 5 senoemde methode. We seven 
hiervan enkele voorbeelden: 


234 152 
15 —-—- i8D=AH 16 -—-- BD=EH 
14 3 
1E == 14D=EH 16 ——- 9D=IH 
® kj] 
234D=EAHK 152D=3EH 


B. Omzettins van binaire naar hexadecimaie setalten 


Deze laatste omzettins is de meest eenvoudise: 


We verdelen het binaire getal in stukken van & bits: rechts te 
besinnen. Mochten er links seen 4 bits overblijven: dan worden deze 
aangevuld met nullen tot 4 bits. Van deze sroepen schrijven we het 
hexadecimale eauivalent op 








Enkele voorbeelden: 
1811 22198 dus: 1011200108 = B2H 
B 2H 


1912 1111 2220 21095 dus: 10191111020901005 = AFD4H 
a F @ 4 H 


3. Omzetten van hexadecimale naar binaire setatten 


Dit is eisentijk de omsekeerde werkwijze als die in punt 8 reeds 
werd toeseticht. 

Van eik hekadecimaal cijter wordt het binaire eauivatent 
opseschreven. Bijvoorbeeld: 


ACH = 1210 11028 
BEBC = 1211 1000 ARID 1100B 


Ik hoop hiermee wat meer duidelijkheid sebracht Te hebben in de 
avantuele verwarrirna betrettende enkele tatstelsels. 
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Om uit de bestaande WORDPACK te komen is slechts een commando ter 





besthikkins nametijk een “B', Dit heeft ais nadeel dat er vanaf 
#E208 een basictile wordt semaakt, wat als het een tekstfile 
betreft, waar de WORDPACK toch hoofdzakelijk voor Wordt sebruikt 

tot een serie foutmeidinsen leidt en de machine vaak hanet. Het 


moeten sebruiken van de breaktoets heeft als nadeel dat #2928 en 
#EIDL overschreven worden. 

De oplossins is simpet, Door drie seneusenplaatsen te Wijzisen 
wordt er door het aanstaan van de letter G sewoon naar de 
basicruimte #82 sespronsen en en lees file aarnsemaakt CNEW). U 
kunt ny bevoorbeeld het wordpackfile op de MDCR zetten vanaf 2500 
tot het eindadres dat U in de WORDPACK met het commando W heeft 
opsevraasd. 





En dan nu de wWijzisingen ( hexaderimaal ) % 
sesheusenplaats was wordt 


ACF 1 E1 4 
ACFZ AA FE 
AAD3 15 07 


Nu zijn op de WORDPACK de seheusenplaatsen van #AAEL t/m HABO4 vrij 
3ekomen. 
Ik zeif Sebruik die sedeelteiijk om iets te doen aan printersturine 


binnen „en af te drukken reses, Normaal is het in de WORDPACK 
atteen moselijk Dt de puntcommando's te laten beginnen achter een 
return. IK sebruik nu binnen een reset de shift \, Het cijfer wat 
hierachter komt wordt net als bij .o ats ASCII waarde naar de 


arinter sestuurd 

Hierdoor is het bijvoorbeeld moselijk om binnen een regel op schuin 
schrift over te stappen en weer terus. Dit Werkt zetfs noa 
viekkeloos bij het uitvullen van de reset. 





Voor de mensen die hiermee toch wilten experimenters hier hoe ik 
dat doe. Allereerst in &RACC El zetten en in #AACD moet AA komen te 
staan. Dan vanaf #AREL de volsende caderine leggen: 


:LL@ CMPA#7CIENE LLi 
JSR#ASDF 
:LL1 JMP&FFF4 


En za simeel is dat. 
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ZEESLAG 


12 REM J.J. MERTENS 
28 REM 1985 
25 REM JOSBOX NOODZAKELIJK 
30 DIMAA2D,: BB4, V2, WS, P-15 TDP, $15t9=4 
4D U=tBABAIP. 6215 GOS. 5 P. $5 
58 REM SHAPE 
58 REM SLAGSCHIP 
78 ?#2889=35 
88 '#2EBL=kbbbbALALT ! F2OOTRETESTEES} ! HZEOITHTSL7 7457 
SB '#2BBDEKSTESSSTS 281 1ePAULADTSTs ! WESIS=HD7T5S5A7 
108 '#ZE1S=HLLALALAGLA ES  W2EIDSHSSSS4EGL 5 ! HLEL1RDESSSS 
118 REM KRUISER 
120 ?#2828=22 
138 !'#2829=4ES4L44L Gt} ! WZEZDENAOS7ESESs ! HLETIHSSSSST7 5 
140 'W20IS=HEL74D7SS |! RLBIJRUUT ELT 45 ! WLBID=HLELG 
158 REM” JAGER 
168 ?#2844=15 
178! #2865=#4407S55T5 !KZOLGHETAAAGGA ! H2EAD=HT5O7SSEEF INZET ESS 
189 REM DUIKBOOT 
198 ?#2858=7 
208 '#2E5S=RL44AD7 SSS  H2EIDEHESSEES 
218 REM MIS 
228 ?#2864=52 
230 '#28E5=H4B2426 15 HZOEITHSTST7570T 'HLEEDEHEEISLILE 
24B 'W2E7 14622424 'HZOTS=H7BADDT bh 'H2E7SHITSL7E77 
250 !'8207D=HEES1S5E5S ! WADBIKEESELI LES ! PLOT HEGEDEDED 
2E '#288I=HLD4LLA2G 5 HZEEDHI ZALIG b 3 HESGIEKZIESTI7 
278 '#ZBISRSSSSSLIT 5 
280 #289D=B; !'HLEIESRSSTEEELLS 'HLEA2TREUSLSL2S 
238 TX. sP." sk OSlASSchip sk" 
208 P, "JE MOET RAKEN: "" 
Z18 P,“ 1 SLAGSCHIP :55 PTN/VELD"" 
328 P.“ 2 KRUISERS 125 PTN/VELD 
358 P." 3 JAGERS 28 PTN/VELD"" 
248 P," & DUIKBOTEN 548 PTN/VELD""" 
35@ P, "BIJ MEERDERE RAKETSCHOTEN ACHTERELKAAR TELT HET TWEEDE" 
350 P. "DUBBEL: HET DERDE VOOR DRIE ETC, “" 
370 P."EEN GEMIST SCHOT KOST TWEE PTN, HET VOLGENDE VIER EN Z0"" 
380 P. "VERDER TOT 38 PTN, *'" 
338 P. "EVEN WACHTEN" 
408 RESTORE 
418 DATA1: 7,5, 5 
428 DATA2,8, 11,2 
458 DATAS: 9, 17, 1 
448 REM BT/MS 
4SD NIBOUE1D: ' #IBO1=H7 7175562: ' HIBISTREEDELLT Es; t RIKOSTHLSIS 
468 PNSBOE=Ts 'WIDOF=N7 77757623 ' HIB1 S= 505 SOD 
478 IMEBIC=B: 'NIDIDE#7S175SE25 ! WIB21=#55754045 
480 ?#EB2A=8; 'WID2B=#71755623 !#IB2F 26447317 
430 PSBIE=B; 'NIBSIEN775752523 ! HSBIDNEOL4 2477 
508 IBAEELDT ' WIDL7=#IOSTSSEE ; ! HIBABEN7 1755043 ' HEBAFERADGG 
518 MZBSG=105 KIBSSNILSIJSELS !'WIBSINSLTS7 TAA !WIBSD=H2AEE 
529 PPTBE2=7s 'NIBEI=#75755265 ! WIET 2700707 
SU IWTB78=IG '#3B7 1e WI41 75562: !'HIB7SHS1ES7 74 NIB7IHEE 
540 WEB7E=1O; !WIB7F=W771755625 | NIBETER2E4LAGT Es ! WIBB7WIDIS 
SSA REM SLAGSCHIP 




















(ZEE-SLAG |F. J. MERTENS 
SED B=EiD=1 
570 GOS. a: GOS. DGOS. c 
SEB REM KRUISERS, JAGERS, DUIKBTN 
53D F.N=1T0E5 GDS. oiN..N 
608 P.BIE'JE KUNT BEGINNEN" 
E1D PHBB=1ES 
Ezra DOIHEE=I#E0-E IHELLSS-IHEDILI. BEAU, NBB (E 
620 LI, #EFE 
E4D GR. 
E50 MOVE2O: út DRAN2 10, út DRAWZ1G, 1543 DRAW2O, 1541 DRAU2D, 2 
668 DRAW211, 5: DRAWZI 1, 155 DRAW19, 155: DRAWIJ: 3 
670 F.P=1T0233P, “ “iN. 3P.$108109$10810810 
EED P."5"$10$B"1"$1DSD"a" SIDE" o'$IDSE"S"$1DEE"C" 61088 
59D P."n"$108E"i"$10HE" p"$ID 
700 F. I=1TO1D:MOVELI#19+20), 54 IFI(ID P=5 
710 IFI)S P=4 
720 PLOTP, (I*19+20), 155 
730 PLOTG, -18: 75 SHAPECHZBEA+ CI 1214) EN, 
740 F. I=1T018:MOVE2D, (I*15+4) sIFICID P=5 
750 IFI)S P=4 
768 PLOTP, 210, CIm15+4) 
770 PLUTO, -204, —7: SHAPE CHEBDD+ (101) #14) 
788 PLOTO: 6, 05 SHAPERZROD: N 
798 P=0;Q=0R=05 S=0 
808 REMT ZOEKEN 
BIO: IFP»=20 G. 
E22 P.$30"SCORE “S" MAX SCORE *"T 
BEB DN ERR P.$11%11:PLAYGZ. 56. 840 
E48 P. * “COORDINATEN “$ESD4ES0BE IN. N 
850 IFN(BORN) 100 P.$11$11:PLAYGR4. +G. B40 
SED XENA1D*19+E0 Y=(T-N/1D)*15+11 
878 F.0=1T028 
E83 IFAADALAG=ENI?21=721-15G. j 
238 N. O1MDVEX, Ys SHAPENZBEG ; SHAPERZEOD : Q=G41 5 R=D 
983 83-130: P#51=45L INKBES 
Si® IFO) 15 Q=15 
323 S=S- 2056. i 
358 REM” RAAK 
S4B; IFARO/108=1 G. k 
359 #EB=125#E1=13LI, BBI EBRD2=L 
CO QD; R=R+1 5 ARO=AAD+10D; P=P+1 
978 IFO(S S=S+R#35IMOVEX, Y5 SHAPER2800:G. : 
950 IFO(1L S=S+R4253MOVEX, Ys SHAPEHZE2830. i 
390 IFO(17 S=S+R#203MOVEX, V5 SHAPERZEAG SG. i 
1009 S=5+Rk4D; MOVEX, Y5 SHAPERZESE:G. | 
1019KG05. z 
1920 P. $5B"SUKKEL, DIE HEB JE AL GEHAD"'"DIT KOST JE 18 PTN. * 
1058 #8G=1 50 
1848 DOIKEE=IKED- Tr NBI 2255 INEDILI. BROS U, NBDS 
1859 GDS. 2 
1952 S=5-18;R=0:G. i 
1978 REM ALLE SCHEPEN GEVONDEN 
12881 PLAYD"8. ,E"B, ,F"8. ,6*8. 
1890 GOS. z 
1180 P.$38"SCDRE "S" MAX SCORE“T 
1118 IFS(@ IFS(T;T=S 
1128 IFS)T;T=S 
1130 IN." "NOG EEN SPEL" ew 
1148 IFW=eCH"N" P.$125END 
1150 P.$121IN. "WIL JE INSTALCTIES "sh 
1168 IF? WECH" JI" G. 290 
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1178 G. 590 

118BaREM HOR/VERT 

1198 A=A.R.X4B3IFA(2D A=lsR. 

1208 A=18:R. 

12106REM STARTCOORD 

1228 XeA. R.XCB+1) 3Y=A. R. CBI) 

1258 ZeX+ig*Y 

12408 R. 

1258c REM LEGGEN 

1262 F‚,C=B T03 

1278 AAD=Z 3 ZeZ+As D=D+1 

1280P. $21 

1238 P‚D-1,AALD-1) 

1300P. $5 

1318 NC 

1320 R. 

1350d REM" DUBBELTEST 

1348 K=D 

1558 F. I=1T0D-1 

1358 F.J=D TOCD+9-B) 

137B H=A, CRAI-AAJ) 

1580 IFij=H 6. £ 

1598 IFG)=H Gee 

1408 IFAl)=H G. f 

1413eN, JiN, ISR. 

1420fK=1 37217212 R. 

1450a REM VOLTOOT 

1448 READG, M, F‚L 

14S0hBeM: Def 

1468 GOS. a+ GOS. à3 GOS. c 

1470 BeM;Def; GOS, d 

1488 IFK G.h 

1498 IFG G=G-iifef+LiG.n 

1508 R. 

1518zP, $38" hl 
1529 P‚" “ER. 
1530YC; : BBOLDAU:LDY#EL +: BBILDXHED: : BB2DEX 5 BNEBB25EORSÁ 
1540STAUs DEY+BNEBB1 ; RTS 

1550: BBELDY#B1 +LDX#80: : BB4LDAV + STRAUS ANDA#4B + ADCHHSB; ASLAGASLA 
15EBROLV+23 ROLV+ 1 5 ROLVs DEY ; BNEBB4 5 DEX ; BNEBB4; RTS 
1570J:R. 
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In machiretaal prosrammeren het error setal welke onze ATOM 
Produceert f bytes hoser is dan de lase byte van de prosram counter 


waar ae BRK instructie optrad. 
e.v. Als er een BRK (#29) op #2803 staat dan zal bij LINK#2805 


error #29+2=lf ontstaan. 





Wit men in een machinetaal prosramma een bepaalde error nummer 
laten optreden dan Kan men met de standaard error handier 
LDAOHEA: PHA: PHAIJMPHCSDE uitvoeren of LDA@HS4IJMP#CIDA, waarbij het 
error nummer dan #34 (=52) is. 

Met het ASBK-S systeem besint de error handter op LLI6 = #11085. Het 
error setai zit dan in seheusen plaats #AF. zodat met 
LDAARZ4ISTAKAFIJMPHIIGS een error boodschap nieuwe stijl wordt 
verkregen. 





Ats men een basic prosranima wil laden met “*RIJN dan saat het mis als 
het erosramma een DIM statement bevat. De reden hiervoor is dat de 
pointer voor het dimensioneren nas niet soed is sezet ats men het 
DIM statement tesernkomt. Dit kan worden voorkomen doór in het besin 
van het prosramma de reszes !'#OD=HXXXXs IEZI=TOPEEFF 5 E24=TOP/ZIEEHFF 
op te nemen: waarbij HXXXX de TOP van het prosramma is of een 
geschikt seheusensebied Om labet adressen oP te staan. 


In een machinetaal prosramma u een tekst kan laten afdrukken met 
een routine wetke op #F7Di besint. De print routine wordt beeindied 
als er een karakter wordt tesensekomen waarvan de Hhishbyte seset 
is. (dus opcode =#80 of hoser) 
be Y. JSR#F7D15 A 

$P="HALLD" 5 PePtL. P 

E:NOP;:RTS 

etc. 
NOP heeft ween opcode van HEA zodat hiermee de printroutine wordt 
bzeindisd en wordt de NOP instructie vitsevoerd alsof het een 
normale opcode betreft. 


Men een basic prosramma kan taten runnen weike niet op een 256 
bytes arens besint door eerst #05 en #06 soed te zetten en dan naar 
#C2F2 te sPrinsen, 
b. V. iga=t2825 
'P, ASEND" ;A=A+L. A 
=#BD 5 A=A+1 
KEF sA=AtL 
SOP=#2880 5E 
EDLDAAK2E : STAHBS 
7OLDAARZE: STAHDE 
BEJMPRCHF EI A 
SOL INKHZ2200 : END 
Met XDUMP #282735 ziet u waar het prosramma Staat. 
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STATEMENTS 


Uit de resio Den Haas hebben wij diverse statements uit de 
JOSBOX ontvansen. Deze zijn in source omsezet om in een 
eisen bow te gebruiken of samen met P-CHARME. Zij votsen 
hier zonder verder commentaar. 


1OREM GRMODE 

20J=ED;DIMLLJ3F, I=BTOJFLLI=HFFE iN. 
SLt4T=Z+5D1 FLLAG TZ RSDAILLA S= ZE MS1S 

40P, $213P=A; Z=P3GOSUB a 

SBP. 40655 P=A +GOSUB a 

EB $T="GRMOD"s TET+LENT 

ES IT=(Z+#205) /25E0#EBIT?1=CZ+H2DEIH25EIT=T+2 
78 $Te"TXMOD"$TET+LENT 

75 IT=(Z+#202) /25EDHEOS TIL =(Z+RLOEI KATE Tet DDr TT +2 
88 A=Z+WSFF;T! 1=A 

38 END 

180arL 

118:LL@ BRK; BRK} BRK ; BRK 3 BRK 

120JSRLL7s JMPLL 215 JSRLL 1D: JMPLL21: JSRLLS 
130JMPLL21 ;LDAARFO: STAHBODO : LDAIHBE ; STAHED 
140AS5LA: STAKSF + TAY;LDXAR1B 

158:LLE STACHSF), Yi INY3BNELLS: INCED: DEX 
1EBBNELL 3: DEY ;STYHEL :LDASHZDs STARDF 
170STAKED: JMPLL19s CLCSLDXER1 OE STXHEE 
188LDXARDB 1 JSRAFD1 SS JMPLL21 

19@:LL4 ELC 

280:LLS JMP&FD11 

218:LL6 JSRHFDIASJMPLL 21 

220:1L7 DECHEO: BPLLLSs INC&ED; JSRLL Ss BEÜLLE 
230STAHEG 

248:LLE RTS 

250:LL9 LDA#DF : BELLS: DECHDF 5 LDAAHIF; RTS 
26B:LL1G LDA&DF s INC4DF + CMPOHOF ; BNELL IGS LDY#EL 
Z7BBMILL12;DEY + BNELLL2 

280:LL11 JSRHFE71;BCSLL11sLDYSH1D 

29B:LL12 STYHEG: DECHDF ; LDRIHED; STAHED: STARSF 
SOSTAHET:LDVARDAs STYHEZILDKORLT 

Zi®:zLLis INCHED 

S20:LLi4 LDACHSF): Y3STACHEZ) , Y5 INYEBNELL 143 INCHES 
33IODEX; BNELL 133 TYAF DECHEO 

Z4B:LL1S STACHE2), Ys: STALHSF) , Y5 INYTBNELL1S 









ZEO:LL17 CMPS#B7 5 BELLE: LDXARBIG JSRHFECS: BNELL 21 
STOLDALLAS: X3 PHASLDALL4G, X3 PHA RTS 

SS0:LLIE CMPI#OEs BEDLLG SI CMPS#1 5: BEGLLSILDYHED 
SIBEMILL1Es JSRLL21 :CMPA#20; BECLL 17 sCMPAR7F 
40BBERLL 23: JSRLL24 5 LDYHEO: INY :CPYANZO 
41@BCCLL 20; JSRLL 10 

420313 LDYSRDO 

458: LL 20 STYHEB 

44@:LL21 PHA: JSRLL293LDXARDZS STYHDE 

4SOILLZ2 LDACNSF), YSEURHELGSTACHSF) . Vs TVAFCLC 
GEOADCHH2O3 TAY 5 CPYHDE s BNELL ZZ 5 RORNDE 
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G7BINCHEE: DEX + BNELL 22; PLA: RTS 

488:LL23 JSRLL7sLDASR2D: JSRLL24: BMILL21 

4S3@:LL24 ANDAR7F3LDXOKED: CMPARLB5 BCCLL 255 INX 

529: LL25 STXHES:TAX:ANDD#IFs STAHE2ILDYARFF 
S10CPXBED : BCSLL 2E: CPXA#203 BCCLL2Es INY 

520:LL26 STY#DE: JSRLL 29: LDYAH4DS JSRLLZB3 LDARSF 
SIBORADHLO: STAKSF sLDYAK2S 

540:LL27 LDACHE2), YEEORHDES STACHSF) , Y3 TYAFCLC 
SSSADCAR2O ; TAY + BNELL27 5 INCHEB: LDYAR20 

S6B:LL2B LDADE:STALHSF) , Ys TYRA: SECHSBCHR2O 
S7DTAY:BPLLL2B: RTS 

S80:LL23 LDA#ES: ASLA: STAHSF + LDAKDF ; ASLA 
SIDADCHDF : SEC : RORA: STAKES: RORHSF 

500 DYARDD; RTS; JSRHFEFB ; PHP; PHA 
618CLD;STXHEG45 STYHESS JSRLL1B 5 JMPHFESF 

E20PHPs CLD:STXHEG 3 STYHES 

630:LL3S BIT#BOB2 5 BVCLLSIL 5 JSRÉFE71 ; BCCLL IS 

&4BiLLZ1 JSRÉFBBA 

65O:LLE2 JSRHFE71 5 BCSLLE2: JSRHFE71 : BCSLL 52: TYA 

SEECMPIEDE + BEGLL 555 CMPO#B7 ; BEOLL IS CMPORGE 
67OBEQLLIG : JMP#FEB2 

680:LLES ANDA#BS : ROL#BA1 5 ROLA; JSRLL 18: JMPLLSB 

69B:LLE4 LDRAOKED s JSRLLSE s LDASHEE s JSRLL3E 3 TYA 

7TUB:LLIS JMP&FEED 

718:LLIE STAHESILDXOAFF 

720:LL37 STXHDEs JSRLL29s LDAKSF 5 ORADHAD: STAKSE 

758:LL58 STYHEZ:LDYAH20 

74D:LLS3 LDACHSF) , YrEORHDESEORKEL ; CMPCHEZ) , Ys BEBLLAG 
7SGLDYHE2; INY 3 CPYARZO: BNELLSBS INX 

7568BEOLLI7 RTS 

77Ö:LL40 TYAFADCHHLF ; TAY 5 BNELL 39: PLA 
78DPLA:LDAKE2:STYHEZILDVHDE: INY 

7IGORALHEZ) , Y:BNELLSS; Js 2P=#803 PI 1=#205 P=P+23C 
BOBLDYAROA F BNELL 41 ;LDYOHOS 

Si@rLL41 LDXARDS 

828:LL42 LDALL4S, Y5STAKZO8, Xs DEYIDEXs BPLLLGES INXS STKHEL 
SSELDASLOC & JSRAFFF 4 } JMP#FGAD + BRK 

8491 

850B= +220: Ee 23E 
S6BB!Oet18003B! 2=H55IEIB! GetGALEIB! E#CIEFB! Se 30EC 
370B!10=-#0:B! 12=4D;B! 14=HOIB! LE=#183CIHD! 18=43CIC 

880B ! 20=#7E2C ; =#7EICHB! 24=430CSCHB! 20405 B! 28HC 

89DD! SD=-#SCIDIB! S2=#180DIB! TU HIEIEIB! SEHEESE SB! SO=H1EET 
900B! 4O=KIEISB! A2=tIB1EIB! 44 HDIB! 4E HEOOS B! G8=HSBEE 
S1DB! SO=tEEEE B! T2=#6O1CID! S4HEIDI B! SC-HEEELIB! SE-#583E 
9208! 68=#18:B!E2=#EELDIB!Eh=#180D:B! GE=#7F36 1D! 5E=#C5E 
SOB! 7D-WIOECHB! 72=4CIDIB! 7b=18SAIB! 7E=#05 B! 7EHCOD 
240B! BO=#1 SEE SB! B: 50E: B! B4=K7CSCHB! BE-RCED; B BB=HEEEE 
I5DB!ID-HTEIEIB! I2=H7EIOF B! A= HEOCHB! IG=#1800 5 B! D= 350D 
SED! 100=#183CHB! 102=#E85B! 104#CIO:D! 10E=#7EICHB! 100=#7E0D 
978B'!110=#1800;B!112=#187EIB! ilá=#1CACHB! 116=4EECHB! 11881870 
980B'! 120=PIESCHB! 122=#03B! 124KEOS B! 125=CAESB! 12841020 
990B! 130=#7FDOHB! 152-301 AFB! 134=HEDIB! 13E=#CIDIB! 1 JE=H1 BSC 
10008! 14G=#TS3R!142=-#50005B! 1ú4=K1875IB! ibb=#E1BIB! 14E=#67E 
18108! 150-#T0EEFB! 152=4EEEIB! 154=HIEIDIB! 156=7EIO:B! 158=#1800 
18208! 160-403 B! 162=#E5ROSB! LEL=HEETCSIB! 16E=HEES H' LEB=HLELE 
























Pac. zh | ACORN NIEUWS [EXTRA STATEMENTS ) 


1838B: 178=#185A:B! 17224585 B! 17424685 1176186658! 178=2#6550 
1840B' 18G=4EEECHB! 182=4305EIB! 184=KCEEIB! 1B5=HISIESE! LBE=HIE 
1950B' 190=#185B!1922=#180DB! WM =#IEDAGB! 196-R518:B! 19ETNTE 
10605’ 200=#380C B! 202=#18:B! 204=470: B! 20E=#3EIB! 2OB=H7EIC 
1070B: 210=#3C7EFB! 21243CBCHB! 214=#E0ICHB! 216=#5BICHD! 218=47000 
1280B'! 220=4C5B! 22221850 B! 2244050 B! 22E2KEBER: B! 22 

1990: 250=-#6BEB:B! 232WEBEBB! 2IG=H4EBI B! & 











11205! 260=#7E785 B! 262E45C7EFB! 26: 
1150D! 27B=#ICEEIB! 272=#5C7CHB! 27: 
11405! 288=#6EEEF B! 282e#7C7E:B! 26: SEDOIB! 205=#183 B! 20EHEEEE 
1158B! 290-#55EEE: B! 2922EBECHB! 294 HELEDS B! 2IE=H10EE FB! LIESHECDE 
11E8B! 30827750: B! SO2=HEEEEFB! JO4HEELEEIB! SOG=HEELEFB! TUS-HEELE 
1170B!S1ETEIEEFB! SI2ANEEEESD! 31 EODEIB! SIE=HEEDIB! SIE=HLEIE 
1180B! T20=85EEE: B! Z22=E60EEIB! 52 EDGE IB! S2ETHEDEDIR! S2EeHTEEE 
11905! 550=#78063B! 3I2=#7FEDIB! SIGHEE7EIB! SIESHEEGE ID! SSE=HEDEE 
1200B! 34B=#EE1EFB! 342ENEDEEIB! S4UHEESCHE! S4EREDIC HE! Sh EHELD 
1210B! SS0=#5066 B! SS2=R7EEAFB! SS 6A7CIB! ISE=#7CEEFB! SSB=REETC 
1220B! SEO=IE7EIB! S62=#700E B! 36 EBEDIB! JEESHEGTEID! ZEB=HEETD 
1230B'!378=#3C7CHB! 572=#65LEIB! 374HEBEESB! S7EHSCIEIE! 5706 D1E 
1240B! JEU=#E18: B! SE2=#7EDOI B! IBL=HEEGESB! ZEESHEDEE: B! SBE-HEDEE 
1250B'! 539=#66ED: B! 532=#1866GB! SI4=H7BDE FD! SIE HGDED: DH! SISTHEELEE 
1250B! 4OB=-HERED5B! 4A2-#EECIE! AALREELSS B! GOE=HIFEEFDB! LODRIETT 
1270B'!418=#E0303B!412=#E0CIB! 414=#50A0IB! ALEREEEDIB! GIEZHEELE 
1280B! 420=#50EC:B! 422=#6568; B! 424=H1EGEIB! 42EEHECEES B! 42EEHETED 
1230B! 6430-6666 5B! 4I224ECED IB! AIG HEEEE B! GIE=HEELGSD! 450-H7 IEC 
1500B: 44D=#1BEEFB! 44 2=HEDED B! 44 6AE:B! 44b=#18901B GABHEESD 
1310B! 4SO-#3C7CIB!4S2EH7E7BIB! 45: 3CEDIB! 4SH=H7EEESE! GSBSREEZC 
1320B! 4EG#ET7ESB! GE2=HTCEEF B! 4E: ZCE6IE! 4EG=#ICIE 
1330B' 470=#6318IB! 47 2=#18EEIB! 474R7CTESB!47E=RTEDDSE! 478TRD 
1540B! 480=4FF O0 
135S50F.L=(Z+#302) TOC ZREBA) 5 ?L=2/256 EN. 
1360? CZ+#319) =Z/25E+1F 7 CZ+REIDD=Z/2IE1I2 EZRA) =2/25E+2 
1370? CZ+M1BB) =2/256+25 I(Z+HIBD) =2/25E+5 
15BBRETURN 
ad 

1BREM PLAY 

20J=208DIMLLJIF, I=BTOJLLI=KFEF EN. 

38 P.$213PzAIGOSUB a 

4@ P.$63P=A3GOSUBD a 

52 STe"PLAY"TaT+LENCT) 

6D ?T=\LO/2560NBDIT Lal LOK25E IT ZEE T=T+2 

78 A=P3T! 1eAtEND 

BAP. $214F. Im1TO23 PZ 

Sarl 

1085 :LL21INY 

1105 1LL18LDACHBS) « YSCMPAN2O3 BER LL21GSTY HOIIRTS 

128: :LLOE 3 ISRLL1; CMPANS25 BNELL 23 INY$STANS4 

130BNELLG 

1485 sLL 28 7 CMPSR41 3 BECTLLA+1 s CMPONGB 5 BCSLLG+1 5 STANSG 

1SBINY3LDACHBS) » Y5CMPAN2Z 5 BNELLSS LDASN LC 

158BNELLE 

1783 1LL31 3 CMP@#27 3 BNELLG s LDAOHBE s BNELLE 

18085 :LL43 LDAINGOS DEY 

1901 :LL68 5 INYSCLCEADCHSG 8 STAMSG 5 LDACHOS) » Y 
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2OBCMPBH2T ; BNELL 7 sLDA#S4 + ADCAHDE ; STAHS4 
21BINY 
22Ds 1LLI3ILDK#S4ILDALL 12: X4 STARSÁILDADHOS 
230: :LLE: 1STAHOZILDKORDT; LDACHBS) » Ys SEC: SRCHHZD 
LOINX 
250: :LLS: :DEXSBMILL4+13CMPAF7CD, Xt BNELL Ss LDALLS7, X 
ZEDSTAHST: INY +LDACROS) , Y5 CMPOKZE ; BNELL 10 
Z7BLDAESIILSRA: ADCHSTS STAHSE: INY 
280: :LL 1D: :STYHOFILDYARDDS STYR52 3 STYHIEF BEC 
298: :LL 1153 INYsBNELLI2s INC#9S 
TOR: :LLI2s SLDASDs SBEHSA 3 STAHSZ 5 LDARST ; SBCAHOU 
E1OSTARST: BESLLA 1 s TVA: LDKORBT 
E20; :LL13: 3ASLAS ROLRIE:DEXS BNELL 1 
SIOLDAARBD : INY 5 INCHSI 
TAD LL 143 HEORRR2s STAKBODZsLDXHSG 
350: :LL1S3 :DEX3NOP; NOP; NOP 5 BNELL1S 
ZEODEY ; BNELL 143 DECHSEs BNELL 143 LDY#02 
37OISRLL 15 CMPOR2C: ENELL 1E: INY : JMPLLO 
380; :LL1EF + JMP#&CSSS 
39DI:LL17=P+#20 
4GDOP ' G=HDIFE: P'2HB7CDEP! GE RDAATSP!E=HETDS SP! BHCZCH 
410P! 19=#AAADSP! 12=#B1G1 EP! 14=HECTIEP! 1ESHSBEE FP! LEHACHN 
429P!20=#7244 3 P! 22REDEE IP! 2GEHACSE FP! DEHLDAES Pi ZESHEESD 
452P'! 5B=H2D52IPIS2=HETLT IP! SAHER P! Zoeker E2IP! EE S20 
GAUP!AD=HIF ZEP! GZ=RBDA IP! bl=HZO1DS P=P+4E 
&SDRETURN 


18 REM FIND 
EOI=2EIDIMLIJFF,. I=BTOJ LL ISHEEF ;N. 
48 P,$21:;P=A;:GOSUB a 

53 P,$E6;P=A:GOSUB a 

58 ST="FIND":T=T+LENCT) 

70 IT=LLG/ZSENHEBIT? Lel LOAZSEIT? 
89 A=PST!1=A 

38 END 

108 

118a3C 
11SzLLELDAG: CMPS1 ; BNEP+5;LDX20 STX45 RTS 

1205 :LLO: : JSRLL 35 JSRHCEFAISTYRIGISTVHATISTVHSE 
120S5TA#53; LDAKS Ss CMPOHO1 ; BNELLA3LDA#S2 
140CMPAR4AD ; BEGLLE 

158; zLL43sDEY 

160: LLS: 5 INYsLDACHSE) + Y5STAH14D, Y3 CMPOÉDD; BNELLS 
178: :LLErILDYSEFF 

188: zLL.77 sLDXSKDE 

130: :LL8; s INY 

200; :LLI :LDACHSE) + Y5CMPR1GD, Xs BEGLL IOS CMPSRADS BNS. 
21BINY5LDACHSE) «+ Ys BMILL1S5 STARS: INY 

220 DACHSE) , Y:STAHLES JSRHCEAL + BNELLS 

230: :LL 18: $STY57 

24Br LL ALs 3INXEINYsLDARLAD, X3 CMPOROD: BNELL 12 
250JSRLL14FBNELL7 

260; zLL 12: 5CMPEHSE), YH BEGLLI1SLDY#S7:ENELL7 

2785 :LL 15 + JMP$CSSD 

2EBi zLL 145 3LDAREZ1 5 PHAFLDADHOS: STARELI  JSRHCHES 
290PL as STA#? sLOYARDI 

ZOO; :LL 155 ILDACHSE) , Y3 CMPOROD: BERLLIES JSRHCAACG It + 
Z1OBNELL1S 

32Or ri L16s SJSRECDSAFDEYIRTS 

330: RETURN 














+TAY 




















PAG. 3E] ACORN NIEUWS|EXTRA STATEMENTS Ì 


Search is een statement om een strins in het seheusen op te 
zoeken. De syntax luidt: SEARCH (strina). 


1BREM «SEARCH 

2@REM BEDOELD ALS STATEMENT 
ZOREM OM STRING OP TE ZOEKEN 
GBREM IN HET GEHEUGEN 


SOREM BV. IN EIGEN INTERPRETER 
EOREM F.G. LE BLANC — MONSTER 


TOREM TEL @1749-42635 

BBREM #E1 BYTES 

0G=#10 

1DODIMLL1isF. N=BTO11ELEN=e-1 EN. 
110P. $215P=A5 GOS. a 

120P. $E;P=A5 GOS. a 
130ST="SEARCH"HTET+LENT 





140? TELL 11/25ENHEOI TP i=ll 11K2555T 22480 TT 2 


158A=P;T?1=A 

LEGEND 

178a;l;:LLit 

1E8DEY 

198: LLOINY 
ZEALDACH) » Yr CMPAK2Os BEDLLO 
218CMPAHZ2: BEQLLIJRTS 
Z20:LLLINYsJSR4CEBF 
258LDAAHD: STAHED: LDAAG: STAHEL 
24LDYAeFE 

25@:LL2 

260LDXa8 

279STX#82 

280DEX 

29B:LL3 

SODINX 

SiO:LLá 

320INY 
SSOCPYAOIBNELLE 
S4BINCHEL 
SSALDAING : CMPHB 1 


SEBENELLE : JMPEESSB 
570:LLE 
ZSEBLDA#L4O, X 
SIECMPIHDAD + BELLE 
&OOCMP (HED) ‚, Y3 BNELL 2 
&18LDABGS CMP#S2 
428BNELL7;STY#B2 
43@:Lt7 

L4BIMPLLS 

450: LLS 

GEALDADH2SI JSREFFF A 
478JSR LLSIJSRHFFED 
4&BBINYIJMP LL2 
49®:LLS 

S@OLDXaB 

Si@:Lt18 
S20LDARB1, X 
SIUJSRHFSD2 

S4OINX 
SSOCPX22:BNELL 1D 
SEORTS 

5781: RETURN 
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Hierbij wen listyns met Twee handise statements nl. APPEND en 
VERIFY. 





APPEND 





Dit commande seett de moseliikheid om twee BASIC-prosrammâ'’s aan 
elkaar te kuopeten. Eerst het eerste prosramma in laden. Czors er 
voor dat de pase-ppinter(?15) sort staat) Daarna het tweede 


prosramma intaden via & 





APPEND" PROGRAMMA NAAM" 


en het tweede Programma wordt dan direkt achter het eerste 
3e lader. 


VERIFY : 





Dit commando geeft de mosstijkhed om te contoleren of een 
prosanma sord is sesaved, Spoel hiertoe de band naar het beain 


van het prosramma terus en dan & 


VERIFY" PROGRAMMA NAAM" 


Beide prosramma’s Kunnen zawel met als zonder naam se@bruikt 
worden. (dus zoals bij LOAD) 
Bij VERIFY kunnen twee tfoutmeldinsen optreden £ 


EE Verschit tussen band en seheusen in een naamloos Prosramma 
1350 Idem, maar dan voor een prosramma met naam. 


Men moet dePasser dat tijdens he verifyen het beeldscherm niet 
scroltt: want dan warden er een Paar bits aemist. Het is ook 
mossel ijk om een sedeelte van een prosramma te verifieren. Dus 
ais @r door scrotten sen 'ERROR' optreed, dan kan de band „en 
stukje terus sespoeld en het verifieren voortsezet worden. 


ig PROGRAM APPEND & VERIFY 

28 

S® DIMLL1G:F. T=OTO1B:LLI=3SI EN. 

48 P,$2t;P=A;GOS. a 

50 P.$E ;P=0:G05, a 

E@ ST="APPEND";T=T+L. T 

70 MT=ltO/ZSERHSDI TILL BAESE TTE 
850 ST="VERIFY"sT=eT+t. T 

B PT=Llt1/2EENHEDI Tt LL INESEINT? Ze TT 
188 A=PiT!i=A 

118 END 

128 

158aE 

148\append-commande 

150:LLOIJSR HFEIE 





160 SEC 
178 LDA #BD;5SEC A#DZ5STA #CB 
188 LDA #8E:SBC O#BD5STA HCT 


138 ISR #FSETI JMP HCDSB 
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200\ ver; fy-commando 
218:LLisJSR #FB15 


228 LDXS#CI: JSR #FS4F 
230 PHP: JSR #FCSE 

240 PLP:ENE LL7 
25@:LL2IJSR KFBEESBVC LLESBEG LLZ 
zen JSR #FC2F 

278 LDYa#sa 
280: LL SIJSR KFFD4 

298 EMPCHCB), Y:BER LLá 
300 BRK 

SIGELL4sINC &CBIENE LLS 
E20 INC #CC 


SSO:LLSILDKARDGIJESR #FADESBNE LLS 
S4G:LLE:JMP #CDIB 
35G:LL75 ISR #FBBE + BVCLLG:s BNELL 7 





358 JSR #FBC:! NELL7 
578 JSR #FBE2IJSR #FSS25JSR #F7EC 
350 BIT #DB:BVC LLS 

338 INX 

405 JSR #F7F1 

410 LDA #FD, Xi JSR #FSU2 
420: LLBIJSR HFFED 

450 LDYORFF 

GBE LLIs INY 

458 JSR #FFD4 

4E CMPCRD4), Y5BEG LL1G 
479 BRK 

48B:LL1GCPY HDS; BNELLS 

493 LDY #&DB3BMILL7 

Sau JMP #CDIB 

51015 RETURN 








Met onderstaande routine kan men in totaat 9 schermen in 
het geheugen bewaren en terushalen. 
Het statement wordt sevolst door het schermnummer. 


18 PROGRAM SCREEN-GSCREEN 

15 \ NU DOK VAN UIT EEN PROGRAMMA TE GEBRUIKEN!!! ! 
2e 

38 DIMLLE:F. I=0TO8; LL I=3SSEN, 

48 P,$21sP=R:GOS. a 

5@ P.$E :PzA: GOS, a 

68 ST="SCREEN";T=TeL. T 

78 ?T=LLB/25E0HBO: T?1 =LLOAZSE T=T+2 

BO ST="GSCREEN":TaT+L. T 

0 ?TellLF/25E0REDS TI1 el IK2SEIT= Tes 2TehED 

108 A=PsT! 1=A 

i18 END 

120 

138aC 

i6B:LLOJSRLLE:LDYOKAO: STY#COH 
15@:LLIDEY;LDA#EZDA, Y:STACHTD), Y:CPYORBO: BNELL 1 
1EBINCHC1 
17B:LL2DEY:LDARE1DD, Y; STACHTB) , Y5CPYSHADS BNELLE 
180JMP&CSSB 

18S@:LLIJSRLILGE:L DYNA 
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200: LL4DEY :LDACHTO) , Y5STAREDDD, Vs CPYARDO: BNELLG 

218INCHC1 

220: LSDEY:LDA (HCS) , Y:STAHE1OD, Y7CPYOHODS ENELLS 

238JMP&CSSB 

24B:LLEIJSRHCLEISLDXHAIDEKISTXAILDAKIE, Xr CMPAOHLO5 BPLLL7 

245\ CMPO#BI IS HET AANTAL SCHERMEN 

250CMPD1 : BMILL 7; TAX: LDAA#SG 

258:LLBCLC + ADC, EXsCPXRB:BNELLE: STAHC1; RTS 

278: LL 7LDAORF 2: PHA PHA: JMP CH202) 

2681 

2S3ORETURN 
mm 








18 PROGRAM DSIZE 

28 DIM LL2:FOR I=B TO 2iLLI=#993iN. 
se 
40 
58 
68 PTELLO/ESENHEBS TILL LOAESEI TIE HEB T=T+ 
70 A=PIT!1=A 





88 END 

30 

189asr 

1iD:LLOIJSR HEZ2S ZET CATALOGG IN GEHEWEGEN 

115 LDA2#D2:STA #52 ZET CATALOG RUIMTE IN DE TELLER 
128 LDX 2#0D:STX #55 

1358 STX #S4ISTKXESSISTX HOG 

140 LDY #2105:STY #DS LAADT AANTAL FILES 

i5@:LLisLDY #DSIBEG LLS EINDE INDIEN ALLE FILES VERWERKT 
178 JSR #E149 ZET Y-REGISTER OP VOLGENDE FILE 
1e8 STY #D8 SAVE AANTAL FILES 

19% ELC 
200 LDA A#FE 
218 ADT #ZiEC, Y ZET CARRY VOOR ONVOLLEDIGE SECTOR 
220 LDA #210D, V 
250 ADE #52 TEL LAGE BYTEER BIJ OP 

240 STA #52 ZET IN TELLER 
250 PHP SAVE DECARRY 
zE LDA #210E,Y LAADT HOGE BYTE AANTAL SECTOREN 
278 JSR #EOFB ELIMINEER LAGE NIBBLE 
288 PLP HAAL DE CARRY TERUG 

232 ADC #52 TEL HOGE BYTE ER BIJ OP 
3508 STA #53 ZET IN TELLER 


BPL LL1 VOLGENDE FILE 

LDY a#52 

JSR #&C9SF ZET WAARDE IN BASIC-STACK 
JSR #C5SE3 PRINT WAARDE DECIMAAL UIT 
341 JMP #CSSB EINDE ROUTINE 

3501 

ZEORETURN 
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Dit proeramma voert een Cyctic Redundancy Check (CRC) vit. 

Het doet precies het zelfde ats het basic prosramma op Biz. 35 van 
Th. & Pr., maar dan niet in 6 minuten maar in een paar seconden. 
Het is zo seschreven dat het semakkelijk in ween P-CHARME tabel 
opsenomen kan worden. 

Je kunt het sebruiken voor de controte van inseladen proeramma's, 
maar ook als verify van een prosramma dat net sesaved is. 

Dan laadt je dat prosramma bv. even op #E2220 en voert op het 
origineel en het copy de CHECK vit.Als beide overeenkomen dan staat 
het soed op de band. 

Je kunt er ook seheusen meetesten door een stuk seheusen naar een 
ander Stuk geheusen te copieren en dan op beiden de CHECK vit te 
voeren. 

Tevens kan het sebruikt worden voor de controte van ROM en EPROM 

Daartoe is hierbij een overzicht van enkele toolkits sesven. 


18 PROGRAM CHEEK 






28 

38 DIMJJ4:F, I=BTO4F JJI=99SiN. 
48 P.$21: +GOS. a 

58 P.$6 :P=AFGOS. a 


68 $T="CHECK" 3 T=T+L, T 

78 7T=IJ0/25E0RBDI T?1=JIUA25E TI 2E TTE 
80 AzP3T! 1=A 

9@ END 

183 

118aC 

128: JJDIJSR #F7D13J 

i39$P="BEGIN ADRES 5 "sPeP+l. P:E3NOP 


148 LDA ACH"#"s;JSR #CDAF 

150 LDYy 9#02 

168 LDX A#90:JSR H#FBISIJSR HFTD1:I 

170SP="EIND ADRES t “sP=P+L, P:C;NOP 

182 LDA 8CH*#";JSR #CDOF 

190 LDY a#00 

200 LDX o#I2:JSR #FBIS 

218 LDY @#005STY #ADISTY #A1 

22D:JJ1 JSR JJ2 

250 LDX @#9DIJSR HEADBIENE JJ1 

240 JSR JJ2 

250 JSR #F7D1:3 

250$P="SIGNATURE : #"3P=P+L. P:CsNOP 

278 LDX a#AD #CB00 — : 

280 JSR #F7F1:JSR HFFEDS JMP #CSSB Daas KEEL Koerd 

298: JJ2:LDX a#2e #FOOO — #FFFF #EJ8E 

300 CLCsLDA CH, Y JOSBOX\AXR=1 KELE 

311 JJ5:LSRA WORD- PACK #BIAS 

320 ROL #ROIROL #AIIECC JJ4 ATOMCALG &LEIR 

550 PMA SOFTTOOL A&F #4BEE 

340 LDA #AB:EOR 8#2D:STA #AO PP-TOOLKIT AEGE 

550 PLA SOFTTOOL 1 "aar 

3EA:IJ4IDEXSBNE JJT SoFTTooL 11 secez 

578 RTS WILLOWBDX #F3LS 

3EDI: RETURN SUPERBASIC WELED 
ASBK-I #4LIDE 
ROMARBOX #C204 


WEBOX-1 w9531 
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ZUIG- MUIS 


De werkerven “kunsmatise intelligentie" vit Lelystad is mind 1985 
begonnen aan een twezde PTOj-Kt. De aspiraties Sinsen Uit naar het 
maken van men COMPUteEr-Sestyurd apparaat. Om niet at te ho Le 
grijpen werd Sekozen voor »en eernvaudis huishoudelijk apparaat met 
siechts een afsebakende taak. Dit heeft aeresutteerd in het mak 
kleine stofzuiger, “de zuigmuis". 




















van 2e 





Deze muis heeft slechts een beperkte inteltisentie is zisentijk 
heel dom: Maar Wardt bestuurd door eer computer die wel 
voldoende Prosvrammatuur en Seheusen beschikt om de muis Zijn taak 
te Kunnen laten volbrensen. 





K 






De achtertiegende Sedachte is dat deze zogenaamde hyiscompute 
teonlijkertijd andere huishoudelijke handelinge kan bestur 
zoats het daen van de afwas of het tafeldekken duor een robot. 












Nu: ansevzer een hatf vaar later, is het projekt zover Sevorderd 
dat er „en Mobiel: Weliswaar nos niet zuigend karretie seresd iS 

dat draad | de “zuismuis'! simuleert, at sook de Twe 
amPUtErprosramma’s die dit bewerksteil isen, 

Aanaez:en A interesse zich voornamel tdk toespitst op het 
proerammeren en ce BLEKUrEN ica, ts Vaar ans het Praosekt hierbij 





afsestoten. Een werkelijke realisatie liet pu Verder op het 
mechanische vlak. 







Ter itiustratie en verduidelijking van het sekozen Pr 
dit artikel een prosramma beschreven Waarin een muis 
t.v.scherm een doolhof zuiet. Dit porasramma is een vereenvo 








en samenvoreing van twee prosramma's voor Sebruik 


De tatstardkamins. 

















Om bovensengemd resultaat te bereiken is door de de 
werkeroep aan de volgende onderdelen seWwerkti 

= de prosrammatuur voor beide computers 

= de Kkommunikatie tussen de huiscomputer et dt 2U:9muis 

een Simulatie-midel 

— het mechaniek van de muis. 

— Vasara in de besinfase sebruikten We een simutatie-modei, De 
bewesineen van de zZUuiSmuis Konden daarmee Zichtbaar warden Semaakt 
ee een tv. scherm waarop eerst zen Wiltékeur:a dol hof Was 
opa=bouwd. 

De kamers dik sezogen moeten Worden zijn voor de muis immers 
onbekende OnmIevins Waarin Mid zijn weg Wart Zien te vinde 
huiszomPuter maakt daar middet van “pdrachten kenbaar Welke WEI de 


muis moet volsen. 
m Atoms aebruikt. Later is 


















= In de simuiatie-fase werden tweet 

een KIM-micropracessorkit met f K _ seheugenvitbreiding in de 
ZUiSmuUrS nazbauwd. Het programma hierv is seschrevarn in 
machinetaal. 

Bis het verdelen van de intellisenti is er van Uitsesaan dat de 
muis bepaalde opdrachten zelfstandie moet kun n uitv ze 
z Be unfarmat: d te 





Zaire: Doe stap iu fiahrins - 
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omsevins en de eisen konditie. 

= De kommunikatie tussen de huiscomputer en de muis werd: in de 
Simulatiefase, simpel verkresen door middel van het kruisetinas 
doorverbinden van de cassette in- en outputs. Met de in COS 
aanwezise moseiijkheden Kon nu data-overdracht plaatsvinden. Een 
nadeei van deze overdracht is wet dat als de ene computer zendt 
C=PUT), de andere moet ontvansen (sGET)., Met enkele wachttussen is 
dit ondervansen. In een latere versie: met de KIM als muiscomputer 
is dan ook sekozen voor de ovedracht met UART's. 

— De muis bestaat vit een frame op twee wielen: aansedreven door 
staspenmotoren, en een zwenkwieltjie (het rolstoeiprincipe). 
Hierdoor wordt een srote wendbaarhed verkresen. 

In de muis bevindt zich de KIM-compyter, interfaces: een zender en 
ontvansertie en de akku's. Tevens beschikt de muis over een 
kompasprosramma dat precies zijn richting bijhoudt. Eventuele 
storingen worden door de muis doorseseven aan de huiscomputer. 


Het erosramma 


Onderstaand prosramma is seschreven in Acorn Atom Basic. Het is 4 
Kbytes lans en vereist 2 Kbytes aan array's, die setesen zijn in 
het video-seheusen. 


De struktuur van het prosramma is zodanis dat de afzondelijke 
erosramma’s van de huiscomputer en de zuigmuis nos herkenbaar zijn. 
Het muissedeelte noemen we voor het gemak "de muis”, het sedeeite 
van de huiscomputer ‘het huis". 


De overdracht tussen beide programma's werkt met kommando's van het 
huis naar de muis en omsekeerd met informatie van de muis naar het 
huis. Het is de taak van het huis Om de zuismuis de weg aan te 
wijzen in het doolhof en hem overat te laten komen. Daartoe seeft 
het huis stapropdrachten in een bepaalde richtins aan de muis, 
Iedere stap Komt oversen met de verplaatsing naar een aansrenzend 
vetid van het doolhof. De muis voert deze opdracht uit en seett 
daarna de waarde van het array-element van het nieuwe veld en zijn 
konditie in een statusbyte door aan het huis. 


Om te besinnen wordt in de initialiserins een random doolhof 
sesenereerd. Dit doolhof is opsebouwd als een raster waarin op de 
rasterlijnen al of seen wandjes staan. Ieder veld binnen dit raster 
wordt in array VV ingedeeld als funktie van zijn x= en 
y=coOrdinaten. Het array-etement bestaat uit de aanweziaheid van 
wandjes met een binaire setalswaarde,: te weten 210, Zti, 212 en 
293. In 4 bits kunnen nu alle 16 moselijkheden van een veld benoemd 
worden. Het wandie tussen twee naast etkaar lissende velden wordt 
ZOWel bij het ene als bij het andere veld meegerekend. Hierdoor 
wordt vermeden dat de muis bij het seven van informatie over de 
omsevins Gok de aanwezigheid van wandjes in de aansrenzende velden 
moet nasaan. Hij kan nu volstaan met het seven van de waardevan het 
Array-eliement van het veld waarin Mii Zich bevindt, 
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_ LL _ 


Rs Reid R=3 





In het asoritme Om weswijs te worden in het doolhof is met het 
volgende rekening gehouden: 
= Om ersens doelbewust te komen: in dit sevat overal in het 


doolhof, moet er een voorkeursrichtins worden aansehouden (zie 
iltustratie), 


— Bij het zuisen van het doolhof kunnen zich de volsende situaties 
voordoen: de muis KOMt Op een plaats waar hij al eerder is geweest 


(deze sitvatie noemen we een rondioper) of de muis loopt dood (dit 
noemen we een doodtoper), 


El 
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Beide situaties maken het noogzake K dat wordt bijsehouden waar 
de muis is seweest. Dit sebeurt in array BB met de waarden T 
(Trafstand tot terminatsunt): BB(x:-y)=T. Ais T=200 dan is de muis 
nos niet eerder op dat veld seweest. 

= Zowel bij een rondloper ats bij een doodloper moet de muis 
ontsnappen door terus te stappen. De muis zaìi Hhierbiò zover 
tervagaan tot hij een toesanketijk veld tesenkomt waar hij nos niet 
is seweest. 

= Het ontsnappen brenet een stapvolsorde met zich mee, Deze bestaat 
uit array CC met S elementen met daarin de betreffende coordinaten: 
CC(S)=x,y. In seval van een ontsnappins zat nu alleen S verlaagd 
hoeven te worden. De reden dat er twee arrar’'s Zijn die de tunksie 
‘tevelopen“ hebben komt omdat bij het teruekeren naar het 
terminatpunt veelal een andere route sevoisd moet worden dan bi 
een ontsnapping. 

= De muis kan door middel van zijn konditie in een statusbyte 
kenbaar maken dat terugkeer naar het terminaltpunt sewenst is, Dit 
kunt u s{tisuleren door een toets in te drukken. In het doolhof 
neemt de muis dan de Kortste wee terus naar het terminalzunt: nacht 
daar even en vervoltset zijn zuisopdracht. 

= Om terus te kunnen keren naar het termina!punt wordt 1n array BB 
de volsende truc toesepast. Bij iedere stap Kijkt het huis of de 
muis in de aansrenzende velden is seweest. Heeft een van deze 
velden een lasere afstandswaarde naar het terminalpunt dan het veld 
waar hij iS: dan Wordt de afstandswaarde in array BB aangepast 

— Wanneer de muis overal is seweest zal zijn ontsnaproute de 
teruskeer naar het terminalpunt zijn. Dit is de aanwijzins dat de 
boet is aanseveesd. 











De sebruikte variabelen zijn: 


= status & omsevina 

= Srootte van doolhof/kamer 

= momentele waarde aansrenzende BBI) 
= flaswaarde wei/seen ontsnappen 
Plaats van de muis 

=- telter 

richtins + doolhofveldwaarde bij INIT 
= ontsnapstap-te! ler 

= teruestao-tel ler 

= coordinaten waarde 

nieuwe veldcoordinaten 

= momentele veldcoordinaten 

—= konditie 


ze 
Z 
t 


<E 
1 


NCAA D 
dd 
1 


De array AA, BB, CC, DD en VV gie in de tekst genoemd worden: zijn 
in het perosramma terussebracht tot byte-array's die sepeek't en 
sepoke' t worden. 


De array's besinnen op de volsende adressen: 





?#8CEB — AAD = doolhof volsens het huis 

?#EDAG — BB) = terusloop stap-tetler BECUD=T 

?88EBO — CCO) = ontsnae route CCS) zU 

2WEFGA — DDI) = terusloop route DD(ser stap) =U 
89080 — VVL = werkeliike dOOlhOof. 
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18 


320 
229 
418 
430 
468 
458 
459 
470 
488 
438 
598 
s18 
528 
48 
558 
588 
ses 
618 
628 
522 
E24 
628 
E28 
548 
658 
655 
668 
672 
680 


REM HET DOOLHOF AANGEVEEGD 


REM VERSE : ACORN NIEUWS 
REM 14 JULI 1984 
REM coordinatie S,Verhoefitel, @5208-4977 
LINK#AFBB: REM TOOLKIT ROM AAN 
REM VOOR COLOUR IS FLP. ROM NODIG 
REM INIT 
GOS. 910D: REM INITIALISERING MUIS 
GOS. 3202; REM GENEREREN DOOLHDF 
GOS. S5ADFREM UITPRINTEN DOOLHOF 
GOS. 90BDIREM INITIALISERING HUIS 
REM hoofderusramma 
GOS. TODD; ZEALIEIA=R/IETREM VRAAG STATUS 
MLHBCADHK415* VI EA 
F=8 
GOS. 1229: REM BEPAAL RICHTING EN NIEUWE COORDINATEN 
GOS. 2003; REM MUIS DOET STAP IN RICHTING 
If F=t GOTO 509 
REM UITPLOTTEN DOOLHOF VOLGENS HUIS 
E=? 89080415) 
MOVE CB*V+4), CBk*W4+4) HIF E&I THEN PLOT 1,5: 0 
MOVE (B&V+4): CE*W44) FIF E&S THEN PLOT 1,08 
MOVECBSV412): CBkW+4) SIF E&2 THEN PLOT 1,04,8 
MOVE (B*V+4), CBHW+12)5 IF E&A THEN PLOT 1,8,0 
REM BIJHOUDEN ONTSNAP-COORDINATEN-ARRAY 
IF F=8 THEN 5=S+15? (#BEQAHS) =V+ 1 SW 
IF F=1 THEN S=S-1 
REM BIJHOUDEN TERUGLOOP-STAPPEN-TELLER-ARRAY 
GOS. 20RB; Z-AKIEIA=A/IEFREM VRAAG STATUS 
T=T+1 
UeVt 154 
IF A&8=0 THEN I=?CHEDRB+U-I) SEF ICT THEN T=I+1 
IF A& THEN [=7(#8DBB+U+15) 5 IF ICT THEN T=I+1 
IF A&1=B THEN I=?CHEDEB+U-15) GIF TCT THEN T=l+i 
IF A&2=0 THEN I=?(HEDEBHU41) FIF ICT THEN T=l+1 
7 CHBDBG+UI =T 
REM BIJHOUDEN NIEUWE PLAATS 
Xmas Val 
2 CHSCBB+ K+ 1 SYD EA 
REM Z=KONDITIE 
IF S=8 LINK&FFES; RUN 
IF Z=@ GOTU 2283REM ZUIG VERDER 
REM TERUGLOOP NAAR TERMINAL-PUNT 
FDR G=T-1 TO @ STEP —i 
U=X+i5*Ys Ar? (RBCSGHUD à 2 CHEFBZD) =U 
IF RA&B=B IF ?CHBDOBHU-1J=0 sVeXeliWeY RSB 
IF A&4=8 IE ?CHSDUDHI IS) zi Vet jeY+1sR=b 
IF A&i=B IF ?(48DDE+U-159) 20 V=EX =Y-1tR=e1 
IF A&2=@ IF PCHEDEB+UILI =D HVeXtisWeY FR=2 
GDS. 2000: REM “GA NAAR" 
Xavi Y=lW 
BEEP 20,6 
NEXT 
REM TERUG OP TERMINALPUNT 
EOR O=z4 TO 14 STEP -1:BEEP 0, ZIN. 
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708 
718 
720 
738 
735 
748 
750 
755 
762 
778 
738 
799 


1882 


1658 
1040 
1059 
+068 
1979 
1883 
1238 
1259 


1409 
1428 
1458 
14468 
1450 
1499 


2809 
2818 
2020 
2050 
2040 
2058 
2060 
2078 
2068 
2090 
z109 
2959 


2800 
3010 
3020 
3028 
5228 
3059 
2008 
s010 
9028 
300 
3040 
058 


REM EN WEER TERUG 
FOR Get TO T 
U=? (#BFBO+G- 1) 
Velt 153 WeU/ 15 
GOS. 1480 
GOS. 2000: REM “GA NAAR" 
Xs Y=l 
BEEP 10,1 
NEXT 
Aa? (HBCDRI XI Se) 
REM EN MRAR WEER VERDER ZUIGEN 
GOTD 220 


REM BEPAAL RICHTING 
A=OMGEVING: X EN Y DE PLAATS COORDINATEN 

UmX+15YsReD 

IF A&8=8 IF ?C4BDUB+U-I)=D sVaX-ijWeY sRaB 

IF A&Asd IF ICHBDER+UHISI=DiVeX  IWaY+liRah 

IF A&l=@ IF CHEDAB+-U-ISjEDsiVex IWeY-1leRei 

If A&2=D IF PCMBDOB+U+ID ED sVeX+isW=Y HR=o2 

REM IN R DE VOORKEURSRICHT ING 

IF ReB THEN Ue? (#8EBU+E- 1) 3V=JK1StIW=U/ 154005. 14001 F1 
RETURN 


REM MAAK RICHTING UIT NIEUWE COORDINATEN 
IF VX THEN Ru8 

IF VX THEN Re2 

IF WiY THEN Rel 

IF WY THEN Reá 
RETURN 


REM MUIS DOET STAP 

PLOT 15, (Me0+8), (N*G+B) IREM HAAL MIIS VAN HET SCHERM 
REM BEPAAL COORDINATEN NIEUWE PLAATS 
IF Rei THEN NeN-1 

IF R=2 THEN MaM+1 

IF R=á THEN NeNt1 

IF R23 THEN MeM-i 

IF Fei THEN BEEP 30, 1 
REM ZET MUIS WEER DP HET SCHERM 

PLOT 14, CMKB+B) , CN+B+8) 

PLOT 13, CM4&B+5), (N%0+6) 
RETURN 


REM MUIS GEEFT STATUS 
REM KONDITIE = (BIT B T/M 3 > 
KEY AtIF R4B THEN Axl 

REM DMGEVING = (BIT 4 T/M 7 ) 
Ax? #9OBD-M+ 1 SEN) #1E+A 
RETURN 

REM INITIALISERING HUIS 

D=280 

S=Di TD Kas Yes Ve; We 

REM SCHOONMAKEN BYTE-ARRDY'S 
FOR I=® TO Ds C#EDOB+I)=Di ?CHBCEOH IJ =D3 ? CHEFDO+ IJ =DiN. 
2CHEDOOD K+ 1 Sr VI =D (BBEUDED) =0 
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IB RETURN 


9108 REM INITIALISERING MUIS 
3118 Ke=BsL=Dsh=OiN=D 
8138 RETURN 


3200 REM GENERERING DOOLHOF 

9219 P.$E2'"' “IK BOUW DOOLHOF""'" “EVEN GEDULD S.V.P, * 
9228 P.'* 

9238 FOR XeB TO 14 

S249 FOR Y=8 TO 19 

3258 R=ABS CRNDX15) 

2268 IF Xm@ THEN R=G 

2278 IF Xai4 THEN Rw2 

9280 IF YsD THEN ReRS1 

2290 IF Yai THEN R=RDó 

33e0 IF Xa15 THEN ReR&iS 

S518 REM NALDPEN AANGRENZENDE VELDEN 

2520 IF X=$ GOTO 93559 

350 IF (WIMERH(K-1) +15) 82e) THEN Rel? 
9348 IF ?(#9BBACX-1)+YRISIE2e2 THEN ReROB 
3350 IF Y=@ GOTO 3400 

9368 IF 7C#9BOB-K+1S4(Y-1)) kám4 THEN ReROL 
9370 IF PCMIBADEK+ISHLY-1DD EhB THEN ReRElá 
9588 IF Y=18 GOTO 3410 

95 IF Xel4 GOTO 3410 

3405 IF R=1S OR Re14 OR R=15 OR Re? OR Reil GOTO 9250 
Sa10 IF R=15 AND X{14 GOTO 9258 

2420 PHIDRR- Xe 15e VOR 

2430 C#90DD+D 11 

448 NEXT 

458 P.14-X, $13 

SuEB NEXT 

3435 RETURN 


3590 REM UITPLOTTEN VAN DOOLHOF 

9518 CLEAR SICOLOUR 5 

9520 FOR XsB TO 14 

3530 FOR Y=@ TO 18 

540 Re (PMWDDB-A+15YD . 

9550 MOVE CAeX+4):CBKY+4) FIF REL THEN PLOT 1,8,0 
SEB MOVE (B*X+4), CBeY+á) FIF R&B THEN PLOT 1,08 
39578 MOVECSNK+12), (BmY+a) 3IF RA2 THEN PLOT 1,0,5 
ISEB MOVE (Bekt4), (BKY+1Z)G IF REG THEN PLOT 1,8, 0 
3530 NEXTINEXT 

3595 COLOUR 1 

95393 RETURN 
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Onderstaand prosramma maakt het moselijk om procedures en functie 
(zie beschrijving P-CHARME box) te Koppelen aan een ander 
prosramma. Je zou nu een hele procedure- en functie=bibliotheek os 
kunnen bouwen waar je de benodisde procedures en functies uitticht 
en koopeit aan het programma waarin je deze nodis hebt. De plaats 
waar het “hoofderosramma”, het "Kkoppelprosramma" en de “procedure 
en functie-bibliotheek" in het seheusen staan Zijn vrij te kiezen. 
Wanneer het woord “KOPPEL” wordt ingetypt vraast de Atom in welk 
seheusensebied hij moet saan zoeken naar Procedures en functies 
Wanneer dit opgegeven is besint de zoekaktie en wordt een 
senummerde lijst seseven van alte in het cpoeseven seheugensebies 
sevonden procedures en functies. Vervolsens Wardt Ssevraasd vanar 
Welk adres aezoeht moet worden naar het einde van het 
“hoofderosramma”. Wanneer dit sevonden is words gevraagd naar d- 
nummers van de procedures en tuntties die gekorpeltd moeten worden. 
Als atte sewenste procedures en functies zo sekoppeld zijn wordt 
ats nummer @ opsegsven. Springs nu naar hes 
ezen RENUMBER commando. Zet voor de eerste 
functie een label: bijv. a. Ersens aan het besin van Het 
moet dan nos GOS.a worden gezet en de zaal Is rend. 
Werkt gegarandeerd plezieriser dan het tetkens 
standaard functies en procedures of dan 
Atomic Theory & Practice hoofdstuk 19,5, 
alternatieve methode wordt beschreven in A.M, 
Mebav. de statements ATTACH en EXTERN. De mo: 
alleen dat altijd samen met het “noafde 
“bibliotheek” moet worden seladen: voordat het 
worden se-“run"“-d. Clubsenoten die 
MOETEN dan vOK de beschikking hebben owvzr 
bibliotheek. Vandaar het prosramma KOPPEL. 

18 PROGRAM KOPPEL 
20 REM HANS HEGT, TEL. 04192-16239 






























ze 
48 PROC ZOEK. > 
SO A=2iPeh 


5Bo DeINSTRCSP, $C) 

78 IF D)8:GOTDc 

88 PaP+LENP+1sIF P(B;GOTOe 

38 GOTD# 

183c PPAND=PEP,.N"  "$CP+2) 

1183 D=INSTRCSP, SE) sP=P+LENP+1 

128 IF DQ GOTOe 

138 IF P{B GOTOs 

148 P.$E“ NIET GEVONDEN!"';GOTOf 
158e QQCN) =PIN=N+1 3 PaP+LENP+1 5 GOTOb 

1604 PEND 

178 N=1sDIM CC4),EC4), PP(20) , QG(20) 

188 IN. "ZOEKEN VANAF ADRES"A 

195 IN. "TOT ADRES"B 
289 $C=" PROC" 1 $E="PEND" ; ZOEK 
218 $C="FUNC";SE="FEND" 3 ZOEK 
228 IN. "VANAF WELK ADRES ZOEKEN NAAR"" "PROGRAMMATOP"P 
230 DOP=P+LENP+1 5 TePs UNTIL? P=4FF 
2&8EhREM T=ADRES VAN BYTE #FF 
250 IN. "WELKE FUNKTIE OF PROCEDURE" “KOPPELEN"A 
268 IF A=OEE&CT-ID=" ER, "5 ICTS FF GEND 
278 COPY PPA), QACA) : Ts T=T+ER LA -PP CAI 
288 P. "GEKOPPEL! u UE CPPCAI+Z) 5 GOTON 
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Alvorens met de prosramma’s te kunnen werken zal met behule va 
FCAT-1 een dummyfitie (FCAT) moeten worden aansemaakt. 

FCAT-1 maakt tevens het ramsehevoen gereed voor sebruik door het 
prosramma SETCAT. 

Het prosramma SETCAT neemt van atie door u sewenste discs de 
catalos over in een bestand. 

Nadat het door SETCAT aangemaakte file sereed is en door het 
prosramma is gesaved onder de naam FCAT kan het door DISCAT worden 
seprresenteerd op het scherm. 

Met een keuze moselijkheid om de catalosi van alie resp, een enkele 
schijf te lezen of een bepaald prosramma in het bestand te zoeken 
en aan te seven op weike schijf dit prosramma Zich bevirid.Het is 
sebieken dat het viterst handis is de schijven te nummeren, 

1DREM FCAT-1 

2OREM VERSIE 1 FRANS LE BLANC 

ZOOP. $12"WANNEER ER VOOR DE EERSTE KEER EEN FCAT GEMAAKT WORDT" 
4&BP.* MOET DIT PROGRAMMA GERUND WORDEN""* 

SeP. “DOE DE DISK IN DE DRIVE"' "DRK OP EEN TDETS"* 

SOL INKSFFES 

7OF ILL#300D, #67FF, B 

BF. N=#30BBTOHEI FFS, #108 

30! N=#20282820 iN! A= 20282020 

100! CN+#19D) =#20202020:N. 

118 INKHEDDD 

120*S. FCAT SRAD E7FF 

1 30E. 





1OREM SETCAT 

2OREM VERSIE 1 FRANS LE BLANC 
SOL INKKEDAD zkt. FCAT 

4@DIMB1 

S3DO P,S12" INSERT DISK" 

SOVTABESP. "PRESS CONTROL FOR STOP“;CU.@, 2 

7BIN. “TYPE DISKNUMBER"$B 

BOIFVALB(=0 OR $B="" OR L.B)23P, $113t INKGFE225G. 70 
IBA=VALB 

1OBIFA) S4A3P. “MAX. 54 DISK'S!"" SILSILSLINKWFE22IG. 79 
112LINKKE22S Re? 2105442008 

120FILL OQ, #22FF, @ 

1 SOB=A* #1 D8+HZEFE 

14BCOPY#2000. #2167, B 

15@U. #B8D1=1915P. $12“ INSERT DISK FOR SAVING FCAT“' SL INKGFFES 
LEN. 

170*S.FCAT TODD 67FF 

180P. "FCAT SAVED"'* "READY"’ 1E. 


In het vorise nummer is reeds het prosramma DISKAT 
sepubliceerd, zonder dat de redaktie in de saten häd dat 
bovenstaande prosramma's er bij hoorden. exuses hiervoor, 
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Als eerste biad in Nederland Publticeerde Elektuur in het 
Septembernummer een direct sekopostd zelfbouw tetefconmodem, Dit 
modem werkt volgens de V2t en V23 normen. 


Omdat ikzelf bij de ontwikkelings betrokken ben seweest is het voor 
mij semakkeltijk eniee eisenschappen van dit modem toe te lichten. 
Het zat voor iedereen duidetijlk zijn dat er seen reden is om nos 
zeif een modem te maken volserns sen eisen ontwerp, Da moseelijkheden 
van dit modem zijn zodanis dat iedereen hiermee tevreden zal Zijn. 


De moseliikhedens 


De insans van het modem is RS 232 Kompatibie,: verder is er een 
insans oe TTL niveau zodat wer DoK zonder de RS 252 
spanninesniveau's kan werken. 

Dit betekend voor de RTOM dat met een 6551 (RCIA) en een 7404 op 
ptus B een modemaansiuitine te maken is { dus zonder aan ekstra 
voedine ): zie hiervoor het bijsesloten schema. Bij dit schema is 
er vanuit sesaan dat ook Bis-Benny op pius B blijft, er is nu nos 
Plaats voor twee pia's of andere interfaces die vier seheusen 
Glaatsen nodig hebben, Het modem kent vier werkstanden namelijk 
tree standen van 208 baud futl duplex en twee standen in 
Viditelmode met een maincannet van 1208 baud en een backcannet van 
75 baud, 

Men kan ru dus met 1208 baud Pen prosramma overzenden: terwijt de 
ontvanser met 75 baud kommentaar terug zendt. In deze mode zendt de 
computer met 1298 baud terwijl de interspeeder de omzetting naar 75 
baud verzorst. De gemiddelde snelheid voor het backcannel is echter 
wel 75 baud, terwijl de data met 1280 bavd aanseboden kan warden. 
Hiertoe is op de TTL plus een handshake sionaat aanwezie in de vorm 
van de TMBT pen van de UART. 

Deze interspeeder spaart een extra Klok voor de ACIA wit. 





Behalve de stand modem is er ook nee eem stand avtoenswer, in deze 
stand is een automatisch dataverkeer moselijk: want ais nu iemand 
het modem opbelt: wordt er opsenomen en metdt het modem zi met 





een carrier welke binnen een bepaalde tijd beantwoord moet worden. 
Gebeurt dit dan is er een dataverbindins sebeurt dit niet dan wordt 
door het modem de fijn weer vrij semaakt: dit sébeurt meestat 
binnen zo'n 18 seconden. 


Op deze manier is het dus moselijk binnen de sebruikerssroep een 
databank te maken waaruit iedereen data kan haten, maar dan wel 
vol tedis automatisch. 


Het modem is zodanies sekonstrueerd dat het onder een telefoon kan 
staan. 


Voor de sebruikerssroep is nu de das aansebroken om eens aan de 
slas te saan en nu een software pakket te maken zodat er tussen de 
sebruvikers Prosramma' Ss Ui tsewisseld kunnen Word en dat de Atm 
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als terminal bruikbaar is. Vanaf nu is de Atom dus Sechikt om uit 
de verschittende databanken hier in Nederland en cok in Dvitstand 
data op te halen. Het sebruik als Viditel terminai is niet direkt 
mosetijk vanwese de speciale karakterset die hiervoor nodis is, er 
bestaat echter voor de Atom een Viditet VDU kaart die voortsekomen 
is uit het system 1 projekt: de software voor deze kaart zit in de 
DOS en het schema van de kaart alsmede de erint lay-out iS binnen 
de sebruikerssroep beschikbaar. Het ontvasen van Viditet is seen 
probleem atleen het weerseven van de speciâlte karakters van viditet 
is moeilijk voor de Atom. 


Voor de toekomst is de uitbreiding van het modem met een autodailer 
zeer zeker zinvol alsmede het aanbrensen van current loops om een 
Telex aan te sluiten of een verbindins over srotere afstand, tot 
max. ca. 1 Km. 

Er moet vanuitsesaan worden dat pulsdailers de einse daiters zijn 
die voor iedereen toepasbaar zijn. 


Ik hoos van harte dat Wij met dit modem veel computersebruikers een 
20ed stuk sereedschap hebben seleverd en wens iedereen veri plezier 
toe met het ELEKTUUR VOLKSMODEM. Voor op- of aanmerkingen houd ik 
mis saarne aanbevolen. 






“ Oded 
1 V/a Táe4 


IN Benny Bee 


Kf ” 
ze ëe? Or zel 
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MCAT seeft de diskcataleca in drie Kolommen op het scherm en 
seett als aanvultende omformatie het aantal sebruikte 
Kbytes en aantat prosranma's op de schijf. 


18 PROGRAM MCAT 
28 REM F.G.LE BLANC-MONSTER 





20 REM 01749-42625 

4D REM settore 
SO REM + GEEFT Z-KOLOMS DISK- 
58 REM # CATALOGUS C#CAT) Ne 


78 REM * MET EXTRA INFORMATIE * 
SB REM sorsekopopkgntotr feopabkontedenge kope 





108 DIMLL17,PP7: SS1 
118 F.‚N=DTOZ7 5 LLN=GIEN 





199a:E;: :S53 

280JSRHEDGD ; JSRHE 
E1OLDXAHBD; ST X#BE 
220: LLOILDA#ZO0D. Xs; CPXOHDE: BECLL Is LDAREZOFS. X 


33 LDAAHCS JSRHFFF 4 





EEB:LLIJJSRREFE. NX CPX@#DD; BNELLOs JSRHEDIE 
24015 $P=" DRIVE "sP=PAL. PL 

SUL DAHEE ; JSRHFSOE 

EBJSRHEDIE 

27015 EP=" UAL "5P=PH. PGC 

ZEBLDAHAC : JSREFFFG 

Z3@riL2ILDYDHDO: JSRLLSIBECLLIE 
ZOOrLLEIJSRHELOILDAH2OOE. Y+ANDOH7F ; STAH2ODE, Y5 TYA 
SIORNELLSs JSRHFFEDIJSREFFEDI JMP PPG 

Z28:LL4s JSR#E LOD 

E30: LLSICPY#EZLD5S BCSLLEFLDA#ZOOE, Vr BMILLG 
S4O:LLEI RTS 

35@:LL7iLDYEBE 

SERCPYA2 

S7BBNELLE: JSREFFED:LDYARFF 

ZBB: 1 LB: INYsSTY#BES JSRLL17 
Z30:LLSsLDAARZLILDVHR7 LDXH2OOF, Ys BMILL 1D: LDADHZ0 
AOB: LLIOI JSRHFFFAS LDXaRDD 
&IBELLitsLDAHAE, Xi JSRHFFFG 3 INK: CPXT#07 :BNELLÍ1 
4GEBBENLL2 

AEB: L 125 STYHB7 sLDXOHDO 
bAlELLIESLDAKZODE: Y5 ANDDH7F ISTAHAE, X5 INY5 INX 
4SOCPXAHDE : BNELL IE 

GEO: LL 145 JSRLLS BCSLLIEFLDXAORDEs SEC 
47O:LL1S:LDA#2ODE, Y5SBCHAE, X5 DEYsDEXSBPLLLIS 
4EDISRHELDI :LDAHZBAF, Yi ANDAH7F 3 SBCHBS + BCCLLIZ 
GIDISRHELODIBESLL 14 

SOD: LL iEsLDYRB7 ;LDA#Z0DE, Ys ORADHED: STAHLZOOE, Y5LDAHBS 
SIOCMPHBE: BEQLL7ISTAKBE; JSRHFFED; LDAHES 
SZOIJSRHEFF AGL DANKEA: JSRHFFFASLDYIA 


















SIOSTY#BE: BEGLLIFLDAK210E, YI JSRHEDF 
S4OCLCHLDASHFF SADCHZ10C, YrL DANZIOF, 
SSESTAHAE:LDAH21 BE, Ys ANDAEGF + ADCHAZ 5 STAKA2 
SEBSECSLDA#2107, Y5 SBCHAT ; PHASLDAH21DE, Y 
S7ORNDA#DF ; SBCHAZ 3 TAX $ LDAAHOD ; CMPHAD 

SSOPLA: SBCHR1 1 TXA: SBCHHZDS RTS 

S9B:LL17 LDYA2IJSRKEGECIDEYIDNE LL17+2:RTS 

600: PPS LDARI21 $ PHAILDASZISTARSZI 
E1GLDYIDESTYHIEISTYH2SISTVATLISTYHASE JSRHELOG 

628:PP1 JSRHE1DO:CPY#2105; BEGPP4 
5EMLDAK21OC, Y3 CLC FADCHT4 3 STARSGI BCCPP2S INCHTE 

548: PP2 LDAR2IED, Y3CLCHADCHLEFSTARLEF BCCPPT3 INCH2S 
658:PPS JMPPPI 

EED: PPA LDXADISTINIASCLC 

B7BRORH2S 3 RORKLESCLCHRORH2S ; RORHLE:LDAKLE: STAKDS 
6BOIJSRHE7DL 5 J 

E98$P="TOTAL MEMORY: "sP=P+t. Ps NOP 
7OBISRKCS8I; JSRAF IDE 5 J 

718$P=" KBYTES "3P=P+L. Ps C3NOP 
720LDA#BE : CMPASE + BECPPS: JSRPP7 

730: PPS JSRHFFEDSLDA#2105 

74DLSRA: LSRAILSRAG STAKES STARB7 ; JSRF 7D1 5 J 
758$P="TOTAL PROGR. £ "sPeP+L. P3C$NOP 

7EDISRHTSSI 3 LDAKB7 sCMPATI 5 BCCPPE:LDYOB: ISRHEGFT 3 JSRPP7 
770:PPE PLA:STAKS21 5 JSRHFFED : JMP&CSSS 

780:PP7 JSR4F7D1: 1 

LIDSP=" tut 1" 3PEP+L. P5C3NOPERTS 

8801 

818 RETURN 


mm 
en 


18 PROGRAM RAADSEL 

ze 

30 S=#802B 

48 PRINT $12$15 

58 ?4E1=0 TREM CURSOR UIT 

68 

78 DO 

89 PRINT $S' 

30 Ne 
189 BEEP 5,5 
118 UNTIL @ 
128 
138 WAAR KOMEN AL DIE PLUSJES VANDAAN 7 

i4@ HOE KOMT HET DAT DE TEKENS CIN DIT GEVAL DUS PLUSJES) 
159 VERBAND HOUDEN MET HET LAGE BYTE VAN S IN REGEL SO 7 
168 (HIER 7 CH"+“=#2B = SEHOOFF) 

178 

188 S=#8023 IS OOK EEN LEUKE WAARDE 

198 
202 OPLOSSINGEN AAN 5 
218 ROB VAN DORT 
220 ELIASSTRAAT 27 
238 ALVERNA 
248 
258 OF NOG BETER: AAN DE REDAKTIE VAN ONS LIJFBLAD 
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De fastcos routines van de TOOLKIT, JOSBOX en P-CHARME bli ijken nosal 
kritisch te zijn bij het taden van prosrasma's op 1288 baud. Hae dt 
komt en wat er tegen sedaan kan worden is het onderwerp van dit 
Artikel. 





Bij het lader van een prosramma draait alles om een rautine: nl. 
de routine die een byte van cassette kan lezen, Door deze routine 
bij herhaling aan te roepen wardt viteindelijk het sehele prosramma 
setaden. Nu bestaat het lezen van een byte op zijn beurt weer vit 
het achtereenvolsens lezen van een aantal bits, en hierom saat het. 
Wat sebeurt er precies bij het lezen van zo'n bit? Om dit auidelijk 
te maken sa ik een gedachtenexperiment met v Uitvoeren. 


Stei u bevindt zich in een srate ronde kamer waarin het absoluut 
donker is. De vloer van deze kamer draait met een konstante snelheid 
rond. U staat op deze vlcer, vlakbij de wand met uw sezicht naar de 
wand toe sekeerd. Ersens in de wand bevindt zich op ooshoeete een 





ktein saatje: waarachter zich een lichtbron bevindt. Door deze 
tichtbron voltsens een bepaalde kode afwissellend rood en sroen licht 
te laten schijnen: worden er achtereenvolsens informatie bits 


vitsezonden. 
We hebben de volsende Kkode afgesproken: 


Een U bit wordt voorsesteld door de tichtbron gedurende 1 sekonde S 


maal van kleur te laten veranderen: diw.z. 1/8 sekonde rood: 1/8 
sekonde groen, 1/8 sekonde rood etc. 

Een 1 bit wordt voorgesteld door de lichtbron niet EB maar 16 maat 
van kleur te taten veranderen in dezelfde tiid C 1 sek... 

Merk op dat ieder bit even tans duurt: ni. precies wen sekonde. De 





snelheid is dus 1 bit/sec € 1 baud), 


Wa sebruiken de renddraaiende beweging van de vloer waartoe we nos 
steeds staan als "“tijdmeter" om het aantal kleurwisselinsen per 
bit-tiijd te bepaten. Hiervoor is het wel nodie dat de vloer snelt 
sences ronddraait: b.v. 199 omwentelinsen per sekonde (bittiisd). 
Gaat het u nos niet duizelen? Als we sedurende 198 omwentelingen 





bijhouden hoe vaak de lichtbron van Kleur verandert: dan weten we of 
er zen "O' af een "1" wordt vitsezonden. Telten we ni. 8 
Kleurwisselinsen dan is er sprake van sen "0" bit, Voor een “1” bit 
zulten we er 16 tetlen. Als regel kouden We aan dat minder dan 12 
kteurveranderinsen een "8" aanseven: en 12 of meer een "1", 

Op deze manier werkt de standaard ATOM COS (op 308 baud). 

U heeft zieh misschien afsevraasd waarom we de lichtbron zo vaak van 
kteur taten veranderen om eer enkelt bit vit te zenden. Kan het niet 


wat minder? Inderdaad: met 2 resp. ú wisselinsen voor een "0" resp. 
1" bit kan het ook. De bittijd wordt dan & maal zo kert en dus de 
stelheid 4 maal zo sroot. We gaan weer precies zo te werk ats 
voorheen. Atieen tetten we nu het aantal kleurwisselinsen sedurende 
25 cuwentetinsen. De bittijd is immers à maat zo klein seworden. 
Voor een "0" bit zullen we £ Kkleurveranderingen telien en voor een 
YI! bit 4, We nemen het setal 5 als breekpunt tussen een “D' en “1“ 
bit? voor Z of minder wissetinsen noteren we een "Q”, Voor of meer 
noteren we een "1" 
Op deze manier werken zowel de TOOLKIT: JOSBOX ats de P-CHARME op 
1250 baud, 
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Wat 
at 


probdieem? Stet 
van kleur wisselt. 


15 nu het 
te laat 


zulten ontstaan. Ga 
„en Kleurwisseling 
met onze teltins besinnen: 


Da epinssins van dit probleem 
aantal Kkieurwisselingen gedurende 
omwentelingen van de vloer tussen 
Voltedise periode rood en sroen. 

we ca. 25 oawenteltinsen tellen en 
omwentelingen. 
dit seen probieem: 

hebben we meteen al 
kleurwisselinsen wachten 
lezen. Ú> deze manier blijven we 
systeem is zeer onsevoeltie voor 
storing zelfs bijna + of 





te pakken. 


Als we ons modet "terusvertalen” 
kteurveranderins overeen 
aar tal 
tape eigenschappen. 

baud is gekozen 
vineromwentetinsssnelheid 
tijdseenheid dat de Acorn Atom naar 
Kijken. Deze snelheid kan van 
“Kkleurwisselinsssnelheid“. Met is 
lauwkeuria de tijdsduur tussen twee 


voor 


dat onze 
We 
Kkieurveranderins te weinise of te veel 
dit zelf maar na 
kan hebben plaatssevonden 
of dat we meteen at 


is ers eenvoudie. 


twee KIeurnissetinsen: 
Zitten we 


Tellen we een omwenteling te veel 
Omdat we voldoende 
Voor 
voordat we 

ieder 


- 58% zijn! 


naar de werkelijkheid: 
met een sisnaalwisseling 
Sisnaalwissetingen per sekonde 
Vandaar dat bii 
dezelfde 
komt overeen 
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lichtbron af en toe te vroes 
Kunnen dan Semankel id een 
telten: waardoor er leesfouten 
en bedenk hierbij dat er net 
op het moment dat we 
een verandering zien. 
We tellen niet het 
maar het aantal 
dew... een 
"g" bit dan zullen 
bit ca. 12 (25/2) 
of te weinis dan is 
spelins hebben. Een “B bit 
een "{" bit moeten we nos 2 
het voisende bit kunnen saan 
bit "op de voet votsen". Ons 
storingen. In theorie mas 


een bittijd: 


in een 
in een “1* 


een 


dan komt een 
ep de band. Het 
is beperkt door de rekorder en 
de oversans van 300 naar 120% 
sisnaat-freauentie. De 
met het aantal maien per 
de sisnalen van de rekorder kan 
nature hoser zijn dan de 
daarom moselijk om redelijk 
sisnaalwisselinsen te meten 


voor de diverse ROM's, 
zijn, aansezien deze 


Tenslotte volsen de voorsestelde Wijzisingen 
Merk op dat voor MJCOS seen wijzisingen nodis 
reads volsens bovenbesthreven methode werkt. 








De wijzisinsen zijn in principe selijk voor aile drie de ROM's. 
Alteen de adressen verschillen. De nieuwe code is als vorst: 
18 CLC 

28 PHP 

20 ED FC JSR #FCBD 

20 EF FC JSR #FCBF 

E@ 12 CPX a#LZ 

B@ OE BCS P+E 

28 PLP 

F3 24 BCS P+E 

38 SEC 

E82 EF BCS P-15 

ze PLP 

EA NOP 

EA» NOP “ek alteen vcor TOOLKIT en JOSEOX 

EA» NOP hi idem 

EA* NDP hd idem 





De beginadressern vuor de wijzisingen zijn: 





TOOLKIT HADDE 
JOSBOX : #ASID 
P-CHARM HADF TE 
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MEER GEHEUGEN 


IK ZELF HEB EEN 64K KAART EN HET LEEK ME WEL HANDIG OM GEHEUGEN 
ONDER DE #19U8 TE HEBBEN EN AANGEZIEN IK TDCH 2114'S OVER HAD... 
IK HEB EEN PAAR WEKEN MET HET IDEE ROND GELOPEN TOTDAT IK EEN 
OPLOSSING VOND. 
DE IC-VOETJES VAN HET LAGER GEHEUGEN EN VAN IC-5 (DE DECODER 
HIERVOOR 74LS125) WAREN LEEG. NOU DACHT IK, DIE KAN IK MOOI 
GEBRUIKEN. IN MIJN DRIVE HAD IK NOG EEN DNGEBRUIKTE 74LSt5S CWANT 
DAAR HAD IK OOK AL GEEN GEHEUGEN IE'S MEER VANWEGE DE Eák KAART) 
DUS HET LEEK ME WEL VODR DE HAND LIGGEN OM DIE TE GEBRUIKEN. 
DE 7415129 IS EEN 4 UIT 2 DECODER, DAT HDUDT IN, DAT JE ER EEN £ 
BITS BINAIR GETAL INSTOPT EN EEN VAN DE & UITGANGEN WORDEN 
GESELECTEERD. IS HET BINAIRE GETAL 22 DAN WORDT DE EERSTE UITGANG 
GESELECTEERD; IS HET @i DE TWEEDE UITGANG ENZ, 
DE '159 HEEFT ODK EEN SELECT INGANG. PAS ALS DEZE INGANG LAAG WORDT 
DAN PAS GAAT DE '129 DECODEREN. 
DE GEHEUGEN IC'S IN DE COMPUTERS WORDEN GE-ENABLED (GE-ACTIVEERD? 
DOOR HET LAAG MAKEN VAN DE CS (ECHIP SELECT) LIJN (PEN 8 VAN DE 
Zil) 
WE VOEGEN ZK GEHEUGEN TOE AAN DE COMPUTER ; EN EEN 2114 LEVERT ik#4 
BITS. DAT BETEKENT DAT WE Z Z114'S NODIG HEBBEN VOOR Ik+*5 BITS EN 
DUS 4 VOOR ZK GEHEUGEN. DUS VOOR DEZE ZK HEBBEN WE Z CS SIGNALEN 
NODIG. DEZE HARL IK VAN DE "153 WAAR IK HET NET HEB DOVER GEHAD. 
DE "159 MAG ALLEEN MAAR GAAN DECODEREN ALS DE MICRD-PROCESSDR ONDER 
DE #1088 ADRESSEERT. DIT KAN DOOR HET SELECT PENNETJE VAN DE '159 
AAN TE SLUITEN MET HET BLGCKS SIGNAAL UIT DE COMPUTER, ALS WE NU 
AIB EN Ait OP DE TWEE SELECT INGANGEN AANSLUITEN DAN KAN DE ’155 4 
GEHEUGEN GEBIEDEN ONDER DE #1099 SELECTEREN, NL, 5 

#20 TOT #OZFF 

#0408 TOT #07FF 

#0200 TOT #OEFF 

#9C2B TOT #2FFF 
NOU VAN #22 TOT #ZFF IS DA. ZERO-PAGE RAM EN IS AL BEZET, VAN 
HOAUD T/M HOAGT ZIT DE FDC VAN DE DISKDRIVE DUS DAAR KUNNEN WE DD 
BEEN RAM NEER ZETTEN. DUS ZIJN H#4B8 TOT H7FF EN #CO9 TOT HEEF 
ONBENIJT DODR DE COMPUTER EN DAAR ZETTEN WE DAN MOOI RAM OP, 








NU VOLGEN ER TWEE BOUW BESCHRIJVINGEN. EEN VOOR MENSEN MET EEN B&K 
KAART EN EEN VOOR MENSEN ZONDER EEN DERGELIJKE KAART. 
VOOR DE GAK KAART MENSEN: 


HET EERSTE WAT MEN DOET IS HET PRINTPLAATJE NR.1 MAKEN, (NR.2 IS 
VOOR MENSEN DIE GEEN B4K KAART HEBBEN). DEZE IS NIET OP WARE 
GROOTTE GEDRUKT!!! 

OP DE PLAATS WAAR XAZ STAAT DAAR KOMT EEN 15 PENS WIREWRAP VOET (ZD 
EEN IC VOET MET VAN DIE LANGE POTEN). DE POTEN NIET AFKNIPPEN MAAR 
LANG LATEN WANT DEZE PDOTJES KOMEN IN DE IC VOET VAN IC-B, 

DP DE ANDERE IC PLAATS KOMT EEN GEWOON IC VOETJE MET DE 74LS155 MET 
DE INHAM BIJ DE ’G’., SOLDEER AAN ’G' ALVAST EEN DRAADJE VAN 5 TDT 7 
CM. 

NJ STEKEN WE HET PRINTPLAATJE IN HET VOETJE VAN IC-E ZODAT 1-7 
DOOR HET PRINTJE BEDEKT WORDT EN DE LS129 NAAR DE ZELFDE RICHTING 
WIJST ALS DE NAAST LIGGENDE IC'S. 

IN DE VOETJES VAN IC-18,IC-11,IC-1E EN IC-17 DRUK JE NU 4 21145, 
SOLDEER HET DRAADJE VAN PUNT ’G’ NU AAN BLOCKO ENARLE CPEN-S VAN 
IC-A DE PEN- VON PLE/7 3. 
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ALS JE DIT ALLEMAAL GOED HEBT GEDAAN MOET JE NU 2K EXTRA RAM HEBBEN 
ONDER DE #1009. 


VOOR MENSEN DIE GEEN 64K KAART HEBBEN: 

BEGIN MET HET MAKEN VAN PRINTPLRATJE NR.2 (NR.1 IS VOOR MENSEN DIE 
EEN 54K KAART HEBBEN). 

DP DE PLAATS WAAR ’XAZ' STAAT ZET MEN EEN 15 PENS WIREWRAP VOET (20 
EEN IC VOET MET VAN DIE LANGE POTEN), DE POTEN LANG LATEN!!! 
DAARNAAST ZET MEN EEN GEWONE 16 PENS IC VOET MET DE 74LSI59 ERIN. 
IN DE WIRE WRAP VOET ZET MEN DE 74LS138 DIE OP DE PLAATS VAN IC-6 
ZIT EN NIET DIE VAN IC-25 OF IC-38!! 

ALLEBIJ DE IC'S HEBBEN DE INKEPING AAN DE ZELFDE KANT NL. RICHTING 
DE °G' ZIE TEKENING), 

SOL DEER ALVAST DE DRADEN AAN '4',"C’ EN 'G' (ONGEVEER 5 TOT 7 CM). 
NUJ ZET JE HET PRINTJE OP DE PLAATS VAN IC-E ZODAT 1IC-7 BEDEKT WORDT 
DOOR HET PRINTJE EN DE IC'S NAAR DE ZELFDE RICTING WIJZEN ALS DE 
NAAST LIGGENDE IC'S CIN DE ATOM. 

SOLDEER DE ’G” DRAAD AAN DE BLOCKS ENABLE (PEN-B VAN IC-8 OF PEN-S1 
VAN PL6/7). 

NU MOET JE 4 2i14'S STAPELEN OP HET LAGER GEHEUGEN EN DRAAD '4' EN 
°C! AANSLUITEN MET DE CHIPSELECT LIJNEN (PEN-B) ZIE TEKENING. 

ALS JE DIT ALLEMAAL GOED HEBT GEDAAN DAN HEB JE NU 2K ERBIJ. 


OPMERKING: 
DE 74LS138 BEVAT 2 4 UIT 2 DECODERS.IK HEB ZE ALLEBIJ PARRALEL 


GESCHAKELD VOOR HET GEMAK. 


BIJ MIJ FUNCTIONEERT DIT PRINTJE TOT VOLLE TEVREDENHEID MET CHARON 
OP #48 EN EEN PRAR STATEMENTS OP #C20. 
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CK-S0S 


In de ACORN NIEUWS zijn reeds eerder Schakelkaart operating Systems 
beschreven. Deze systemen hebben allen hun sperifieke voor en 
nadelen. Dear mij is een SOS ontwikkeld wat ten opzichte van deze 
systemen een aantal voordelen heeft. 





Alie boxen Kunnen doer #lkaar sebruikt worden: omdat steeds bij het 
wisseten van box de systeemvectaren die naar #AXXX wijzen vervangen 
warden dear een andere vectar die bij het aanvoeren van deze 
systeemvector naar de bijbehorende box schakelt. 

Za is het bijvoorbeeld mogelijk het met de P-CHARME tn de TXMOD van 
de JOSROX te werken: wen DISAS of XDUMP vit de JoSbox m.b.v. het 
TEXT statement uit de WORDPACK oe te staan, of bij het wesschrijven 
van tile's vanuit de WORDPACK de 1288 BRUD routine vit de Josbox te 
sebruiken. 





De vectoren die door het SOS veranderd kunnen worden zijn de 
ERKVEC, de IROVEC, de COMVEC, de WRCVEE, de RDCVEC: de LODVEC, de 
SAVVEL, de BGTVEC en de BPTVEC. 


Het SUS heeft wet enige vrije werkruimte nodig i.v.m, het bewaren 
van de oude systeem vestoren en de bijbehorende chionr's: hiervoor 
is het gebied #21C tot W2IF sebruikt: dit 9eett seen Problemen met 
de P-CHARME, JOSBOX, WORDPACK, CALCROM, TOOLEUG en SOFTTOOL 1+2. 
De ruimte maa absoluut nergens anders vaor sebruikt Worden: bi 
Problemen met andere boxen kan eventueel rnaar #9898 worden 
vitsewekern. 





Het is niet nodie BOKEN iN ZET bepaalde voet van de schakelkaart 
te pleatser: omdat het SDS seen eisen commando lijst heeft vr het 
detecteren van de boxconmard S. Atte boxen warden seaventieel 
afsezacht totdat het commando is uitgevoerd. Dit werkt uiteraard 
traas (bij ken van 5 boxen onseveer 20 milliseconden). Dit 

















sebeurt eihter indien er van box overseschakeld moet Worden. 
De fitosofie hierachter is n.t. dat de meeste prosramma's voor een 
bepaalde box eseschreven zijn. is eenmaal een bepaalde box 


ingeschakeld bijv. P-CHARME door het PROGRAM stat. dan zal deze box 
inseschakeid blijven en worden verdere P-CHARME statement's zonder 
vertraging atsenerkt. Als er nu een onbekend stat, moet worden 
vissvoerd zulten atle boxen worden afselosen totdat de P-CHARME 
weer bereikt wordt. 

Het SOS saat hierna in zen eigen interpreter kijken of het sta 
herkend wordt. 





Het 505 kent de volgende commando's ( men kan naar eisen inzicht 


commando's wesjaten of toevoegen ) % 


LOCK Cchienr.), Zet het SDS vast op een box en reset alte systeem 
vectoren. 


UNLOCK, Maakt een LOCK commando ongedaan. 
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CHIP Cchienr.): Idem ats UNIOCK maar Schakelt over naar 
gespecificeerde box. 





PAR, Geett ween lijst van alte basic aroo:s die met REM besinnen. 
tE. RONDA) 


QJ (pas), Vervanst ?18=#(oas)iEND (A. MARCHALD 


85 (pas), Vervanst ?18=#(paa) ENDS RUN (A. MARCHAL) 


TYPE ‚ Schakelt een nieuwe keyboard en writechar routine in, 
mossel jkheden zijn autorepeat, tastrepeat, keyboardclicks 
(piepjes), stowlistinstCTRL-SHIFT), tistinsstop (SPATIE balk), 


extra CTRL chars{CTRL-Y sraphics printen: CTRL-N weer normaal 
Printen), (sedeeltelijk oversenomen van B. POOT) 


Bij het printen van een char op het Scherm zijn seen WAIT's meer 
tpesevoesd. Dit zeeft een lichte storings op het scherm tijdens het 
printen, maar werkt wel veel sveller. 


ELICK, Schakelt de piepjes vân TYPE aan of uit. 


TGLBRK, Bij het sebruik van de TYPE read/write routines wordt de 
BRKVEC en de BASIC ERROR HANDLER niet steeds na het inlezen van een 


<CR) in de directmode sereset, deze vectoren zijn dus vrij te 
veranderen, Het is dus b.V. MOStiijk na een P-CHARME prosramma de 
sebruikte meerdimensionale arrays of functies te printen. Door 


TGLBRK te sebruiken kan deze functie vit-of weer aan sezet worden. 


DIS (start) E: Ceina) MIRAKEL disassembler: verder zeltde syntax 
ais DISAS van de Josbox. 


MFIND Machinecode find functie.Er zijn drie moselijkheden: 


MFIND XXXX YYYY LDADEFF (assembler find) zoekt naar de 
bijbehorende bytes en drukt alte adressen af waar deze voorkomen. 
MEIND XXXX YYYY H1234 (byte find) zoekt naar de bytes #34 en 
#12. 


MFIND XXXX YYYY "string" zoekt naar de opseseven string, 


Het systeem iS ZOWe! naar #EUOO als #1909 (voor de DOS sebruikers) 
te assembleren en heeft noe voldeende vrije ruimte voor het 
inbouwen van de BOOTSTRAP routine. Het is nodis de FP ROM te 
veranderen zodat deze naar #EGZO of #1990 sprinst: zie A.N, 1985 
nr.2 blz.74 … 


Bij het inschakelen van de ATOM moet het SOS seinitaliseerd worden 
door op adres #2357 (het leesadres voor #BFFF) een nut te schrijven 
m.b.v, ?#237=8 Of door LOCKGEUNLOCK in te typen. Mensen die de 
BOOTSTRAP hebben insebouwd Kunnen dit natuurlijk makkelijk 
automatisch doen. 

Het hierboven beschreven SOS is zeer sebruikers vriendelijk, het 
systeem is zondermeer compatibet met de ATOM en werkt zo efficient 
dat het nauwelijks opvalt: ook vastlopen door verkeerde 
systeemvectoren indien er van box is overseschakeid is met dit 
systeem Praktisch niet moael ijk. 
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M.G. D. R. 


=1 BESCHRIJVING MDCR CONTROLLER 2.8 


Dit, brosramma is een besturinss-proesramma voor de Mini Disitate 
Cassette Recorder van PHILIPS, de MDCR moet aanseslaten zijn 
vaolserds het schema van G.Borsaerts of de beschrijvins in het PET 
buiietin PBE 1380-3;MDCR-PET, hetzij op de eisen (ATOMVIA of zen 
Extra VIA. Het prosramma werkt meteen indien men een extra VIA 
heeft op WBFED: voor de standaard VIA is stechts een kleine 
verandering nodis. 





De MDCR-cantroltersource is +/- 16 Kbyte lans en tevert een machine 
code van 3595 bytes. Dit prosramma kan in een EPROM als uibreiding 
van het operatins-systen. 


=2 HET PROGRAMMA 


Het prosramma schrijft blokken van Íkbyte op een minicassette: deze 
blokken hebben elk een naam: de naam van elk biok staat in het 
zerste blok dat op de band staat. Telkens als er iets op de band 
sesthreven Wordt moet dus het eerste biok herschreven Worden &n 
wordt er dus tervesespoeld. 

Alle blokken die de zelfde naam hebben vormen samen sen file d 
niet aanzensestoten op de band hoeft te staan, deze constructie 
maakt een optimaal bandsebruik mogelijk, met tevens de moselijkheid 
tiles te herschrijven. Voordat een file wesseschreven wordt, Wordt 
eerst het voorgaande blok seladen en secontroleerd of deze het 
juiste bleknr. heeft. Bij het schrijven van een tile worden eerst 
eventurie lege blokken aan het besin van de band seschreven en 
daarna de biekken aan het einde vän de band 

Om te voorkomen dat ook bij het laden van een file steeds vanaf het 
begin van de band sezocht moet worden, wordt de directory met namen 
in het RAM-seheusen bewaard: in de standaard versie wordt hier het 
sestapelde hose seheusen van #9C2B tot #OFFF sebruikt. 











Het Wwesschtijven van Ben erasramma sebeurt met een baudrate van 
6DDD bits per secHnde, er passen dan 58 blokken op een kant van een 
normale minidatacassette, voor elk blok is in de directory een 
ruimte van 20 bytes sereserveerd, dit betekent dat de filenaam 19 
karakters lans mas Zijn 


In de directory Staan tevens: 


—0p #9FFC het aantat Blokken dat in de directory zit, normaal 
58. Indien er bijvoorbeeld maar 49 blokken op de band zouden passen 
kan dit verholpen worden doer in te tyeen ?W9FFC=49I*MDIR (schrijf 
de directory GPM eUw). 

-Op #IFFD de ruimte die per biok in de directory seresêrveerd 
ts: normaat 20. 

“Oo #IFFE een checksum over de directory van #S9COG-RIFFD, dit 
wordt steeds bij de uitvoer van de commando's secontroieerd en 
indien er een tout in zit komt de meldins DIRECTORY ERROR, dit om 
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te voorkomen dat er vreemde dinsen sebeuren ais de directory niet 
klopt. 

Oo #9FFF het bluknr. van het blok waar de band momenteel staat, 
oftewel waar de controtler denkt dat de band staat. Dit adres haaort 
eisenlijk niet meer bij de directory en wordt cok niet overschreven 
directory s@laden wordt. (de directory is dus eisenlsjk 
1025 bytes lans.) 











5 FOUTMELDINGEN 


Het erosramma heeft een Vvitsebreide foutmeldins: Bij elke tout 
Wotdt „erst een bericht afsedrukt en daarna een BRK sese ‚ het 
errarrummer is voor aile fouten selivk en äfhankelijk van het adres 
waarraar de controiter seassembleerd +5. 

Iridien tijdens het laden sen van de fouten NO PREAMBLE: NOTHING ON 
TAPE of INCORRECT LOAD pptreedt, spoelt de zontroiier een blok 
terus en Probeert het blak waar het fout sins nosmaals te Saden. 
Als de fout 5 keer achter elkaar optreedt wordt er zen foutmelding 
gesevern. 





De fout meldingen zijn? 
NO CASSETTE, seen cassette. 
END OF TAPE, de cassette is op het einde van de band: terwijl de 


(troiler denkt dat hij nos verder Kan spseten, remedie: spoel de 
band terug, GEREWIND) 





NOTHING ON TAPE, er is at meer als 659 msee seen data van de 
zassette setezen, deze meldina treedt op ais de koppen vuvit zijne 





NO PREAMBLE, etk block op de band besint met een byte #AA indien 
dit byte niet als eerste selezen Wordt volst deze foutmeding. 


INCORRECT LOAD: de checksum van het setaden BIGEK KIGPt niet, deze 
fout komt Praktisch nooit voor. 


WRITE PROTECT, er zit seen write-enable piusje in de cassette: deze 
is dus beschermd tesen schrijf-acties. 


FILE NOT FOUND: deze fout treedt op bij een posing sen niet 
bestaande file te verwijderen: te herchrijven,: of te verlensen. 


TAPE FULL, deze foutmetdins wordt seseven indien „r niet meer 
senses ruimte op de band meer is om een file wee te schrièven. 


DIRECTORY ERROR, voor het vivoeren van de meeste commando:s wordt 
&ltijd secontroleerd of de checksum over de directory nos wel 
klopt. Indien dit niet zo is dan wordt deze fouutmeldins gegeven, 


SYNTAX ERROR, er zit een fout in het arsument van een commando 


EXISTING FILE, treedt op bij een posins een bestaande file te 
schrièven zonder het “*REWRITE mmarndo te sebryiken 
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=à& DE COMMANDO INTERPRETER 





Het prosramma heeft een eisen interpreter en commando tabei, welke 
door het veranderen van de COMVEC beschikbaar wordt. Als het 
commando niet herkend wordt stuurt het prosramma door naar #FGEF 
dit is het normate adres voor de «* commando's. 


=S DE COMMANDO, 5 


Het prosramma kent de votsende commando's : 


“MSAVE “naam” XXXX YVYY ZZZZ 

XXXX=STARTADRES FILE 

YYYY=EINDADRES FILE 

ZZLZEEXECUTIE ADRES FILECoptionat) 

Schrijtt een tfite naar de band en spoelt daarna terus om de 
directory aan het besin van de band aan te passen. Als men alleen 
“MSAVE “naam” sebruikt dan wordt het basic prosramma dat door de 
textspace pointer aanseseven word weaseschreven. 


“MLOAD "naam" XXXX 

XXXX=RELOCATIE ADRESCoptional) 

Laad een file van de minicassette, indien het een basic file 
betreft (executie adres C2B2 of BOXX), worden 218 en TOP 
automatisch goed sezet. 


“DELETE “naam” 
Verwijdert een filenaam vit de directory 


“REWIND 

Spoel de band terus, de motor van de recorder wordt sestart en het 
prosramma Komt terus in inputmode: vanaf nu totdat het einde van de 
band bereikt is Wordt om de GESmsec met behuie van interruets die 
via TIMER 1 (van de H#B800 VIA) sesenereerd worden, setest of de 
band al terussespoeld is. Deze interrupt constructie wordt ook bij 
*INIT en *MDIR sebruikt, en werkt alteen indien de commando's 
vanuit direct-mode inseseven zijn. Bij gebruik in een BASIC 
prosramma wordt sewacht tot de band terussespoeld is. Tijdens het 
terusspoeien mas de interruptstatus-bit niet seset worden, en mas 
de IRQVEC niet veranderd worden. 


“INIT 

Spoel terus en laad de directory van de band (BLOCKO). Dit commando 
moet men elke Keer bij het inzetten van een andere cassette 
intypen. 


“MCAT 
Geeft van elke file alle blokken met start,» Eind en executie 
adrssen (drukt alleen de blokken die een naam hebben af). 


“FORMAT 
Maakt een schone directory en Schrijft hem op de band. Dit commando 
noet sebrvikt worden om een tege cassette in sSebruik te nemen. 
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*MRUN "naam" XXXX 





Ais *MLOAD en LINKT automatisch naar he executie adres. Het is 
MOsPlIjK basic er ramma's automatisch te starten indien als 
executie adres OOXX was opsecseven (een auto run maar een zeropase 





adres Komt nooit voor): dan wordt de textspace-pointer op XX sezet 
top sued sezer en een RUN seseven. 


“VERIFY “naam" XXXX 

Als *MLOAD maar taadt de fite zonder hem in het Seheusen te 
dit voor controie van een belanserijke file of v 
Positioneren va de band. 





*DIR 
Drukt een tijst van atle filenamen aop de band af en seeft het 
aantal blokken dat deze file in beslag neemt: indien tussen twee 


files lese blokken staan wordt dit aansesseyen met EMPTY, 


*REWRITE “raam” XXXX YYYY ZZZZ 


Als MSAVE maar voor het herschrijven van bestaande file. 





KAPPEND “naam” XXXX YYYY ZZZZ 

Als MSAVE maar vaar het wvitbreiden van zen bestaande file: te 
sebruiken indien een erosramma uit twee seheveen gede en bestaat. 
Let op bij *MRUN wordt als executie adres dan het exmcutie adres 
van het laatste blok van de file sebruikt, 





MEM 

Drukt het aantai Kbyte af dat nos op de bard past. 

MD IR 

Bij het seaventieei weeschrijven van file's naar de MDCR is het 
Soms lastis dat er steeds teruesespoeld Woerdt om de directory aan 
te passer: dit kan immers ook pas als de laatste file 15 


wesseschreven. indien men tijdens het wesschrijven van een fite de 
CTRL toets insedrukt houdt, zal de directory nos niet meteen op de 
bard sezet worden: dit Kan nu achteraf door *MDIR in te typen 


*NOREN 

Na uvitvoerins van dit commando wordt er na het wesschrijven van een 
file niet terussespoeld om de directory te herschrijven: dit heeft 
de zeifde functie als het insedrukt houden van de CTRL toets: deze 
LOriditie wordt opseheven door *MDIR te gebruiken (zie ook “*MDIR). 


“MDR 

Dit commando vervanst de OSSAVE en OSLOAD vectoren door adressen 
die naar MDCR routines wijzen: hierna kan de MDCR ook in 
bijvoorbeeld de WORDPAEK ROM dae CALC ROM of in een data-base 
prosraama sebruikt worden. Let op indien nu dus het *SAVE en *LOAD 
COMMAaNndo Sebruikt worden wordt er naar de MDCR toeseschreven en 
vervalt ook de controle op het reeds bestaan van een file zoals dit 
daar MSAVE, REWRITE en APPEND wet sebeurt, de maximale naamlenste 
is nu OOK maar ÎZ karakters 
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“SYNC 
Door git commando kan men het block nr. Waar de band staat 
synchroniseren met het prosramma. Dit is te sebruiken indien men 
een programma van de band wil taden zonder eerst de directory op te 
halen. 


“BLORD (start block) C:(eind block) 

Met dit commando is het moselijk per block te taden, dus *BLOAD 1 
zal het eerste prosrammablock van de band laden naar zijn 
oorspronketijke adres. 


“FILL 

Dit commando is handis als om een of andere reden de directory niet 
van de band seiaden kan worden. Het commando schrijft de directory 
in het seheusen vol met #8), aile blocks worden vanaf nu in de 
*MCAT selist. Op deze manier kan men door naar de start en 
=indadressen te kijken de verschillende tiles herkennen en deze met 
het *BLOAD commando taden. 


=B NOG SNELLER ? 


Het is ook moselijk het prosramma bij 10088 baud te sebruiken: voor 
het assembteren van de source dient men deze keuze te maken. De 
betrouwbaarheid hiervan is nos niet op srote schaal beproefd, in 
tesenstellins tot het werken met 6209 Baud hetseen door de fabriek 
voorseschreven wordt, en ook al jaren met succes toesepast wordt in 
andere computers. Dit hanst ook samen met de sebryikte 
bandkwaliteit, Bij mij WErkt het soêd, het sebeurt alleen weteens 
dat een block niet meteen de eerste maa! soed selezen Wordt, de 
tweede maal tukt dit altijd. 

Beide systemen zijn wat het laden betreft compatibel: omdat zij 
dan de sesevens uit de directory gebruiken. Het is dus zonder meer 
mogelijk 6828 baud en 12089 baud cassettes door elkaar te laden. 
Het schrijven met 18000 baud werkt alteen soed indien de cassette 
Cok met dië snelheid is seformatteerd. 

Bij 1@kbaud passen er op de cassette 72 blokken: dit houdt in dat 
de title naam dar vOk maar 13 karakters tane mas Zijne. 
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Na het lezen van het 1-2-4 MHz artikel uit 1982 werd 
mijn computer probleemloos tot 2 MHz opgevoerd. Dit 
blijkt echter bij sommige ATOM's niet mogelijk te zijn. 

Zo kwam er iemand bij me wiens ATOM op 2 en ook op 1,8 
MHz (de halve frequentie van het 5,58 MHz signaal) 
volkomen stil bleef. 

Om uit te vinden waar dat aan lag, werden eerst alle 
belangrijke en belangrijk lijkende IC's uitgewisseld. 
Omdat dit geen resultaat had werden alle weerstanden 
en condensatoren aan een grondige maar tevergeefse 
controìe onderworpen. De conclusie was toen dat de 
fout in de print moest zitten, en inderdaad waren er 
enkele minieme verschillen (o.a. spoorbreedtes) waar- 
neembaar. 

Na enig experimenteren bleek dat ge ATOM in 'standaard' 
vorm (8+2K) wel op te voeren was. Het marteren van pull- 
up weerstanden op de 8 datalijnen had het zelfde effect 
als het weghalen van de (schijnbaar nutteloze) weer- 
standen R39, R40 en R41, namelijk geen enkele waarneem- 
bare activiteit meer bij elk van de voorhanden zijnde 
kloksignalen tussen 0,5 en 2 MHz: 

Uiteindelijk werden er 8 pull-down weerstanden van 4k? 
aan de 8.datalijnen gehangen, waarna de ATOM het op 
alle snelheden (dus ook op 2 mHz) wel goed deed. ve 
aanwezigheid van R59-41 werd hierbij genegeerd zodat 

op D1-3 twee pull-down weerstanden aanwezig zijn. 

De weerstanden werden in dit geval aan de uitgangs- 
buffer (8304 pennen 1-8) gesoldeerd, maar deze plaats 
is waarschijnlijk niet kritisch zodat ook andere plaat- 
sen gebruikt kunnen worden. 

Een ander punt bij het opvoeren is de processor. 
Volgens de specificaties gaat de 6502 tot 1 en de 
6502A tot 2 MHz. Dit moet echter voor de bezitters 

van een gewone 6502 geen reden zijn om geen hogere 
kloksnelheden te proberen, want er zijn wel ATOM's 

met een gewone processor die cok op 2MHz werken. 


Willy Slendebroek 
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ATOM STRINGFUNCTIES. 


Dit prosramma STRINGFUNCTIONS biedt de sebruiker een 17-tal 
strinshandlins-functies van uiteenlopende aard 

Het prosramma is seschreven in p-charme formaat en kan 
binnen een eisen prosramma worden opgenomen af m.b.v, een 
ATTACH/EXTERN combinatie etders vanuit het seheusen worden 
sebruikt (zie G.N. 3/2). 

De moselijkheden van de verschiltende stringfuncties zijn zo 
opsebouwd: dat de functies voor zeer veel toepassingen 
bruikbaar zijn: bijvoorbeetd een complexe (BASIC) 
tekstverwerker, of het screenen van user-input (checken op 
toutieve invoer, analyse van zinsopbouw etc.). 


Het prosramma: 


Het prosramma is ìn Basic seschreven en heeft daarom als 
srootste nadeet de lase snelheid. Aan het besin van het 
prosramma worden twee variabelen seinitialiseerd: te weten 
het besinadres van de string-storase-area (B) en de maximate 
strinalenste (L), Beide variabelen Kunt u zelf aanpassen: 
echter men dient er rekening mee te houden dat de totate 
string-storase-area 21 maal de max. strinslenste aan bytes 
in bestae neemt, een soede plaats voor deze opslag is het 
grafische seheusen. De reden dat elke functie zijn eisen 
werksebied krijgt toesenezen liet hem in het feit dat de 
functies elkander dan cok kunnen aanroepen. Om seheusen te 
besparen kan etke functie het zelfde werkgebied toesewezen 
krijsen, echter men mas binnen een functie dan seen andere 
functie aanroepen: het saat dan (bijna) attijd mis, let 
overigens op dat er reeds enkele functies zijn die al van 
een andere functie sebruik maken. 

De maximale stringlenste is die lenste welke de strinss niet 
zutten overschrijden, a!hoewel hiervoor een foutprocedure 
aanwezis is. 


De functies: 


LOC(X, YI seett de tocatie van substring $Y in string 
$X, deze functie is bijna identiek aan de functie INSTR 
Cpcharme), echter aansepast aan het in dit prosramma 
setdende feit dat niet strings zelf als paraneter worden 
meezeseven: maar de stringadressen, daarnaast seldt dat de 
eerste locatie in een strins altijd positie '@' is. 
Voorbeeld: $X="STRINGFUNCTIE" 

$Yz"FUN" 

LOCA, V)a6 


CONCAT CX; Y) levert de optelstrins van $X en $Y (in die 
volgorde): de strinss worden a.h.w. aan elkander 'serlakt'. 
Voorbeetd: $X="STRING" 

$Y="FUNCTIE" 

SCONCAT (X, Y)="“STRINGEUNCTIE" 
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Sl=*na” 
SREPLACIK: Y‚ Z)="STRInNGFUr SCT IES" 





COMPARCX, VI geeft de verschilstr:ne van $X en $Y, beide 
strings worden verseleken: en de karakters Welke wet in $X 
maar niet in $Y aanwezig zijn Komen achter etkander in de 


nieuwe string 
Voorbeeld: $X="ATOM STRINGFUNCTIES" 
$Y="AEIGU" 
SCOMPAREX, YJ= "TM STRNGENCTS" 





RELATCX, v} verselijkt de strings $X en $Y ava lenste en 
inhoud: indien $X)$Y dan levert de functie '1', is $X=4Y dar 
'@' en is $X($Y "-1'. Een kortere strings wordt als kleiner 

beschouwd, de verselijking van de Karakters saat in ascii 





volaorde. 

Voorbeeld: $X="jansen" 
tY="janssen" 
RELATEX, YJ e= 


RELATCCLEFT(X, 3)» (LEFT CY, 59) =0 


CONVERT(X:Y, 2) converteert alle de karakters van substrins 
$Y in strins $X m.b.v. Z (om precies te zijn een EOR met 2). 
Voorbeeld: $KX="STRINGFUNCTIES" 

$Y="STRING" 

BCONVERT(X, Y‚ #20) =" ATOM str insFUNCTIES" 


RELOCIX, Y‚ ZD reloceert de posities van Substrinss binnen 
$X adhv. verselijkinss-string $Y en detimiter-karakter Z 
Voorbeeld: $X="taatbbeecorddee! 
$y= * * * 
SRELOCCX, Y‚ GHY" Ee! aa bb ccc dd ee ” 





En * " 


Let er overigens wel op dat aan het eind van de 
veraelijks-string voldoende ruimte is secreeerd om ook de 
iaatste substrins soed te kunnen retoceren: de relocatie 
stopt namelijk zodra een van de strings $X of $Y is 
doorlopen. 


TRANSLATEX, Y‚Z) vertaalt de string $X met behutp van 
taatstrins $Y naar vertaaitstrins $7, Deze functie bepaalt 
voor elk karakter in de strins $X de positie in $Y, en vormt 
een vertaalde strins door het met deze positie 
overeenkomende Karakter vit de vertaatstrins $Z2 te 
vervansen: indien het karakter niet in $Y aanwezig iS: Komt 
een spatie in de vertaatde string. 

Voorbeeid: $X="ATOM STRINGFUNCTIES" 
$Y="ABCDEFGHIJKLMNOPERSTUVWXYZ" 
$Z="ZYXWVUTSROPOMNLKJIHGFEDCBA" 
STRANSLAT CX, Y, Ze" ZGLN HGIRMTUFMXGRVH" 
STRANSLAT(TRANSLAT (X, Y‚ 2), Zo Y}=" ATOM 

STRINGFUNCTIONS" 





Wellicht ten overvlogde Wijs ik er op dat men in de functie 
seen STRING als paranter kan meeseven, atleen een 
strinsadres: „en funct 
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PRINT SCOMPAR(X, "REIOU") 


is dus niet voesestaan. 


108 PROGRAM STRINGFINCT LONS 

118 

1208 B=#9DDDIRENM strine storase area 
138 L=64 IREM max strinstensth 
150 REM size of strins storase area = B+21*L 
158 FUNCTION LOC(X, V) 

1568 IF LEN(Y)LENCX) ERRORC1) 
178 LOC=INSTR($X,$Y)-1 

183 FEND 

198 

ZB FUNCTION CONCAT CX, Y) 

218 IF LENCX)+LEN(Y))L ERRORC2) 
220 SB=$X 

232 S$SB+LEN(X)=8Y 

248 CONCATEB 

25@ FEND 

268 

272 FUNCTIDN LEFT(X, YJ, A 

288 IF Y(1 ERRORS) 

298 IF YILEN(X) ERRORC4) 

300 A=B+L 

318 $A=$X 

320 Yazd 

338 LEFT=R 

54B FEND 

358 

36D FUNCTION RIGHT(X, YJ, A 

378 IF Y{1 ERROR(D) 

388 IF Y>LENCX) ERROR) 

330 A=B+ZtL 

400 s$A=$X 

41® IF YXLEN(X) $A=SK+LEN(XD-Y 
428 RIGHT=A 

430 FEND 

448 

450 FUNCTION MID(X,Y, ZD: A 

GEB IF Z41 ERRORCS) 

478 IF YLEN(X) OR Y{@ ERRORS) 
4E9 A=BtTeL 

498 ?A=kD 

508 IF YLLEN(X) SA=$X+y 

Si® Z?A=HD 

520 MID=A 

538 FEND 

56 
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550 FUNCTION PDELET(X,Y, 2D, A 
SEB IF Zl ERRORCS) 

578 IF Y)LEN(X) OR Y{O ERRORCS) 
SED A=Btá*l 

538 $a=$X 

529 PCA+Y)=kD 

E1D SA=SCONCATEA, (XrY+Z)) 

E28 PDELET=A 

635 FEND 


E59 FUNCTION SDELETCX: YJ, A 

667 A=B+5+L 

678 $A=EX 

E83 DO 

E33 SRA=EPDELET (A, CLOCCA, VII, LEN (YI) 
700 UNTIL LOELA, V}=-1 

718 SDELET=A 

728 FEND 


740 FUNCTION INSERTCX,Y, ZD, A 
750 IF LENCXO+LEN(Y)ÒL ERROR(Z) 
768 IF ZOLEN(X) OR ZO ERROR(S) 
778 A=B+EL 

780 s$A=$X 

730 ELA+LI=E(AAZ) 

880 ECA+Z)=EY 

818 SA=$CONCATEA, CA+LI) 

228 INSERT=A 

850 FEND 


250 FUNCTION ROTAT(X,Y, ZJ, In Js A 
858 IF Y(@ OR YILEN(X) ERROR(S) 
878 IF Y+Z}LENCX) ERRORC4) 

888 IF 241 ERRORCS) 

899 A=B+ötl 

&X 





338 Jz? (A+I+Y) 

340 ZAAI+Y)=ICAHY+ ZI 1) 
952 ICRHY+Z-I-=T 

SEB I=I+1 

278 UNTIL 1=2/2 

388 ROTAT =A 

330 FEND 

1208 

1819 FUNCTION PSPLITEX, Y: 2), A 
1929 A=B+Ikl 

1939 SA=ELEFT (XY) 

1840 PSPLIT=A 

1059 $2=$CX+Y) 

GES FEND 
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1072 

1988 FUNCTION SPLIT(K: Y, 22: Ir A 
1892 A=B+i8eL 

1188 I=LOC(X, Y) 

1118 SA=SPSPLIT(K, 1,2) 

1120 SPLIT=A 

1130 FEND 

1140 

1158 FUNCTION REPLAC(K: Y, ZJ, Is Jr Ks A 
1150 IF LEN(X)-LEN(YO+LEN(Z))L ERROR(2) 
1178 IF LOC(Z:Y) 0-1 THEN ERRORC6) 
1189 A=Br1l#LiI=AtLiJeltLekKeJel 
1198 $J=&X 

1288 DO 

1218 SI=SSPLIT(J, Y‚ K) 

1228 SK=SRIGHT (Ks (LENCK) -LENCYJDJ 
1230 SK=$CONCAT(Z, KJ 

1240 $J=$CONCAT CIK) 

1258 UNTIL LOC(J, YJ=-1 

1269 $A=$J 

1279 REPLAC=A 

1282 FEND 

1298 

1308 FUNCTION COMPARCX, Y), IT, J, A 
1318 A=B+1S*LtJ=A+L 

1529 $Je"" 

1538 FOR Is@ TO LENCO) 

1348 SR=EMID(X: 1, 1) 

1350 IF LOC(Y,A)=-1 $J=$CONCAT(J, A) 
1368 NEXT 1 

13578 COMPAR=J 

1380 FEND 

1538 

1488 FUNCTION RELAT(X, YJ, Is J, A 
1418 I=-15J=9 

1420 DO 

1458 Ieï+1 

1448 XIF X?I=8D AND Y?I=#DiJ=0 
1458 ELSE XIF XI Y?I OR Y?I=RD J=1 
146® ELSE IF X?1(Y?I OR X2I=#D J=-1 
1478 UNTIL JOS 

1488 RELAT=J 

1438 FEND 

1580 

1510 FUNCTION CONVERT(X,Y, ZJ Is J, A 
1528 As=B+17*l 

15358 J=LOCEX, Y) 

1548 IF J=-1 THEN ERROR) 

1558 $A=$X 

1569 FOR I=J TO J+LENCN) -1 

1570 A?I=CA?IJ:Z 

15E8 NEXT 1 

1598 CONVERT = A 

1EDA FEND 
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E12 

1628 FUNCTION RELOC(X, Y, ZD, Is Js A 
1639 A=B+i8*L 

1649 I=9iJ=0 





1658 DO 

1EE2 XIF X?I=Z 
1670 i=l+t1 

1680 WHILE Y?J0OZ 
1692 A?J=E2 

1703 JaJ+tt 


1718 WEND 

1722 ELSE A?J=X?IsJeJ+isI=l+t 

1750 UNTIL X?I=#D OR Y2J=#D 

1748 A?J=#D 

1758 RELOC=A 

1769 FEND 

1770 

1788 FUNCTION TRANSLAT(X:Y, ZJ, 1, Js K, A 
1790 I=0sA=B+iS*LiK=AtL 

1899 DO 

1810 J=LOCCY, MID(X, I, 19) 

1828 XIF Jet OR JILENCZ) 

1838 K?I=E2 

1849 ELSE K2?I=22J 

1852 I=l+1 

18868 UNTIL X?I=#D 

1878 K?I=#D 

1880 TRANSLAT=K 

1839 FEND 

1902 

1318 PROC ERRORCX) 

1329 CASE X OF 

19381) PRINT"SUBSTRING TOO LARGE" 
13402) PRINT"STRING TOD LARGE" 
1950(2) PRINT*NO OF CHARS TOO SMALL" 
196044) PRINT"NO OF CHARS TOO LARGE" 
197045) PRINT"WRONG CHARACTERPOSITION'” 
19809(E) PRINT"SUBSTRING NDT FOUND" 
1398 CEND 

2800 BEEPSD, 25 

2010 END 

2829 PEND 
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SPEL VOOR ACORN -ATOM +AXRe= 1 


DOBBELLATTEN 


Een spel waar van de spelers zowel reactievermogen als besluitvorming 
vereist wordt. - 
Maximaal zes spelers proberen om de minste totaalpunten bij elkaar te 
dobbelen en te combineren. 

Het spel kan gespeeld worden op de Acorn-Atom voorzien van een AXR-1 : 
toolkit en is zeer geschikt als gezelschapsspel. 


Het spel 


Bij aanvang van het spel hebben we negen genummerde vakjes boven in hèt 
scherm staan, 

De eerste speler stopt nu met een druk op de spatiebalk de eerste dobbel- 
lat (een platte dobbelsteen}en het gedobbelde cijfer blijft zichtbaar, 
Daarna wordt automatisch de tweede dobbellat gestart, welke door de speler 
weer gestopt kan worden. 

Met de uitgekomen cijfers kan de speler nu vakjes gaan sluiten, en dit 
herhaalt zich totdat de speler geen enkel vakje meer kan sluiten. Het totaal 
van de opengebleven vakjes wordt nu bij elkaar opgeteld en bij het totaal 
van de speler bijgeteld, Een uitkomst van # is dus het mooiste, want dat 
betekent dat alle vakjes gesloten werden door de speler. 

De gedobbelde cijfers kunnen, indien mogelijk ook gesplitst worden, maar 
dit wordt nog uitgelegd. 

Als er geen keuze bestaat voert de computer automatisch de énige keuzemo- 
gelijkheid uit. 

Heeft een speler in een ronde het maximum overschreden: dan komt er achter 
zijn score een # teken te staan en is hij voor de rest van de ronde uit- 
geschakeld. 

Bij zijn uiteindelijke totaalscore worden nu echter elke keer dat andere 
spelers nog niet aan het maximum zitten 50 extra strafpunten toegevoegd. 
Dit zal straks met een voorbeeld verduidelijkt worden in een spelverloop- 
notatie. 

De winnaar is diégene die na alle gespeelde rondes de minste punten heeft. 


Aanvang van het spel 
De computer heeft een aantal gegevens van ons nodig voordat het spel kan 


beginnen. 
Wij dienen dan ook de navolgende zaken via het toetsenbord in te voeren. 


… Aantal spelers Kan lopen van l t/m 6 
= MKoeilijkheidsgraad Keuze van C t/m 4 
= Aantal rondes dat men wil spelen, 


Moeilijkheidsgraad 

De cijfers Ì t/m 9 samen opgeteld geeft 45, Als je nu een maximum van 50 
invoert, kan je in de eerste ronde bij je eerste beurt weinig gebeuren, want 
je kunt jezelf dan niet kapotspelen. 

Moeilijker wordt het daarom als het maximum slechts 10 bedraagt. 

Je mag dan slechts 9 punten over hebben om jezelf niet meteen kapot te spelen. 
Hoe hoger het maximum is ingesteld des te langer kan 1 speelronde dan duren. 
Spannender wordt het als je zoveel mogelijk weg moet dobbelen per serie. 
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Om nu zelf dat maximum te bepalen kun je dit van tevoren volgens bijgaand 
lijstje invoeren. 


Keuze Maximum 





Het splitsen 


Splitsen betekent dat je met bijvoorbeeld de gedobbelde getallen 3 en 6 
zelf kunt bepalen of je deze bij elkaar optelt of apart gebruikt om dan 
twee hokjes te sluiten, Dit wordt je alleen gevraagd door de computer als 
de mogelijkheid echt aanwezig is. 

2 de hand van een paar voorbeeldjes zullen we eens kijken hoe dat werkt. 






worden de overgebleven vakjes getoond en de vakjes die dicht zijn 
wor gemerkt met een $. 

De getallen ín de vierkantjes geven de gedobbelde getallen weer. 
Daäronder vinden we de twee mogelijkheden die we hebben en het gevolg van 
splitsen of niet splitsen bij die situatie. 





A. 12345678 9 . [6 
12$45$ 7883 hier is dus gesplitst 
12345678 $ en hier dus niet 

B. 12s4as5s 789 Lj 
Ss 28458789 hier is dus gesplitst 
1854558789 en hier dus niet 


c. S2845$ 789 Lb B 


S25$4$$78 9 hier is dus gesplitst 
S 28458759 en hier dus niet 


In voorbeeld A. konden we kiezen tussen 1. 6 en 3 
2. alleen de 9 = (6 + 3} 


In voorbeeld B, konden we kiezen tussen 1. één 1 
2. of 1 + 1 dus de 2 


In voorbeeld C. konden we kiezen tussen 1. alleen de 5 
„2. of 3 + 5 dus de 8. 


Spelverloop 


Enkeie regels welke tijdens het spel toegepast worden door het programma 
zullen we nog even kort toelichten, 


= als er slechts 1 speler binnen 1 ronde nog beneden het maximum zit als 
alle spelers gespeeld hebben, ís de ronde afgelopen en krijgen alle spelers 
die kapot zijn 50 extra strafpunten. 


DOEBELSPEL 
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= als alle spelers zich in de ronde kapot gespeeld hebben en alle spelers 
gespeeld hebben is er geen rondewinnaar en krijgen alle spelers 50 extra 
strafpunten. 


= als een speler niet meer verder kan spelen worden de totalen van alle 
spelers zichtbaar op het scherm met de ronde-uitslag. 


- na iedere ronde krijgen we een totaaloverzicht van alle spelers en hoe zij 
er met hun totaalscore voor staan. 


= tijdens het spel staat het nummer van de speler die aan de beurt ds, 
invers middenboven de twee dobbellatten. 


- de rondeteller geeft aan hoeveel rondes er totaal gespeeld worden en met 
welke ronde men momenteel bezig ís, 
B‚V,: stel er staat : Ronde : 32 dan betekent dit dat ronde 2 aan 
de gang is en dat er totaal 3 rondes gespeeld worden. 


Hieronder volgt een overzicht van een spel dat gespeeld werd met 6 spelers, 
maximum was ingesteld op 20 en er werden 4 rondes gespeeld. 


J.A,F.M. van Eldik. 


u 
Fi 
ti 
Â 
kj 
Ae 
uw 
fa 
a 
z 
< 
> 
U 
@ 
8 
2 
Z 


TOTALEN NA 2e RONDE 
TOTALEN NA 3e RONDE 
EINDSCORE NA 4 RONDES 


RONDE 4 
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18 P.$12:#E1=Bi=dib=1iCetfFiT=e 
28 PRINT" week dobbelspel zuk:'! 
38 PRINT“MAXIMAAL ZES SPELERS PROBEREN OM“ 
43 PRINT"DE MINSTE PUNTEN BIJ ELKAAR TEDOBBELEN, ** 
58 PRINT“DIT LUKT ALLEEN DOOR OP DE GOEDEMOMENTEN DE JUISTE" 
68 PRINT" BESLISSINGENTE NEMEN, *' 
78 PRINT"DE REACTIESNELHEID VAN DE SPELERHELPT HEM OM OP" 
58 PRINT" HET GOEDE MOMENT" 
30 PRINT"DE DOBBELBALKEN TE STOPPEN EN ZOHET OVERGEBLEVEN" 
188 PRINT" TOTAAL VAN DECIJFERS TE VERKLEINEN, *" * 
118 PRINT" drukopeentoets" 
128 LINK #FFESIPRINTS1I2: ?#E1=0 
138 PRINT“AANTAL SPELERS CMAXIMAAL 6) 277 
148 LENK #FFESSKEY MsM=M-#305 IF ME DR ML THEN RIJN 
155 PRINT"MOEILIJKHEIDSGRAAD (@-4) 2777 
158 LINK #FFESIKEY Zi Z=(Z-#30)*18+10 
178 IF 218 THEN GOTO 152 
188 PRINT"HOEVEEL RONDES TE SPELEN 2" 
198 LINK #FFESIKEY TsIel-#505PRINT$123 4E1=0 
208 DIM SSCM),BB10, GOM) 
218 FOR X=i TO M+QOX=0I SSX=DI NEXT 
220 BB1=#8025; BB2=#5026 ; BEI=#8029t BB4=#ED2C $ BBS=eHB02F 
250 BBE=#E0T2; BB7=#80IS ; BBE=HEDTE ; BEI HEZID : BBI HEUOD s 7 BBA=H20 
240 FOR P=i TO 1 
258 PRINT&12:?#E1=0 
258 PRINT $30''**"t""?111 32 BB0=#20 


270 PRINT" MAXIMUM:"Z" RONDE: "1, Ps ?BBU=#20 
288 GOSUB ;:+GOSUB #:GDSUB + 
293p N=i 


30da IF SSNZ:D0:;GOSUB uIUNTIL G=8:GOSUB y 
318 IF SSN)=Z THEN QON=OEN+50 

328 NeN+15Ge1 

350 IF N{eM THEN GOTO a 

348 Q=3 

358 FOR U=1 TO M 

360 IF SSU)=Z THEN G=Q+1 


378 NEXT U 

388 IF Q=M OR Q=M-1 THEN GOSUB r;GO0TO 409 
50 GOTO » 

4&0D NEXT P 

410 PRINT” drukopeentoets"tLINK #FFEZ: RUN 


42Da ?#B18F=N+4DO5 I4BIEF=HAT 

430b B=DsFOR Xei TO 14FA?X=CINEXT XIFOR Yei TO 12 STEP 2 

440 B=B+13WAITEAICYHIJKBr17E6IAIYECHA?(N-IJ=CIIF B=6 THEN Y=i2 
450 KEY D3IF De#28 THEN Y=125 IF H=l THEN E=B:NEXT$ RETURN 

458 IF D=#20 THEN Y=i2sIF H=2 THEN F=BINEXT3 RETURN 

478 NEXT Y;GOTO pb 

480c IF Hezl THEN A=#81CO 

438 IF H=2 THEN A=#8iDE 

502 FOR 1 TO 145A?X=CiNEXT? RETURN 

S10d FORS=#8081 TO #BRIDHIS=#2IINEXT 

528 FOR EDZt TO HEDIDs ?S=#233 NEXT: RETURN 

530f FORS=#ROL1 TO HEDSD: 5-25; NEXT 

SUD VekBIiFOR S=#8025 TO HEDIC STEP Ts I5=Vi VeV+1i NEXT RETURN 
55de K=OiL=D 

SEB IF 2BECE+F) OH23 AND E+FCÍGB THEN K=1 
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57@ IF ?BBEOM25 OR ?BBF #25 THEN Lel 

580 IF K+L=® THEN G=@: RETURN 

SSD IF K+l=2 THEN GOTO s 

688 IF Kei THEN GOTO h 

610:GOSUB m5 ?BBE=#23 ; ?BBF =# 255 RETURN 

B2OnGOSUB nt ?BBCESF) =25: RETURN 

SSBaPRINT * WILT U SPLITSEN 2" 

54B LINK #FFESIKEY D 

658 IF D=589 OR D=74 THEN GOTO i 

668 GOTO n 

6785 A=#81CHIGOSUB kiA=#BLDE: GOSUB Ks RETURN 

6EBKk WeA-#20:SEA+WZEOIFOR Xe] TO 14FWIXEWGII SI Xel7BI AI KECINEXT 

698 WELAF=A7FI INBLEF #70: UBICFSHR7FT INBLGESHSD II HEL MOE NEE 

708 ?4B16F=#45 RETURN 

7101 T=G:FOR Xemi TO 10 

728 P." UN beurt is voorbij“$1S 

738 P." UW BEURT IS VOORBIJ"$13 

748 NEXT X3PRINT '' 

758 P, * DRUK NU OP EEN TOETS" 

758 LINK #FFES;PRINTSIJS1iS11S11811 

770 FOR S=#8B68 TO #813F 5 ?5=420I NEXT 

780 FOR Xai TO 9 

738 IF ?BBXOMN23 THEN TeT+X 

8588 NEXTsRETURN 

818m FOR Xai TO 12 

828 IF ?BBF() N25 THEN ?CBBF+#20) s#SE3WAITS WAIT 

838 IF ?BBEO N25 THEN ?(BBE+#20) =#SE: WAIT WAIT 

540 IF ?BBFO #23 THEN ?CBBF+#20) =&1EFWAIT 

858 IF ?BBEO #23 THEN ?(BBE+#20) =# 1E WAIT 

B58 NEXT: RETURN 

870n FOR X=1 TO 105? CBBCE+F) +H20) 13E 5 WAITSWAIT 

B88 ?(BB(E+F)+#20) 2WLEFWAITSWRITSNEXT : RETURN 

83BvH=15GOSUB cIGOSUB asPRINT #30! ''* 

38 PRINT" UW GETALCLEN): "E“ * 

318 H=25GOSUB CIGOSUB asPRINT" EN “F'':;GOSUB e 

320 IFGOB THEN GOSUB v: RETURN 

3358 IFG=8 THEN GOSUB | 

346 SSN=S5N+T3GOSUB J5GOSUB #5 ?NB1EFER7E 

953 FORX=1 TO M 

268 PRINT" SPELER *“X"2 hl 

378 IFSSX(18 THEN PRINT“@*“ 

SEZ PRINTSSX" PUNTEN“3IF SSX)2Z THEN PRINT © 4” 

393 PRINT' 3NEXT 

1888 PRINT" druknuopeentoets" LINK &FFES: RETURN 
1812YFOR (=#8A68 TO #E1SCHIXmH2OINEXT 

1020 FDR H=t TO 2:G05. CINEXT3 RETURN 

183@r FOR Xe1i TO 4 

1048 GOX-DOX+55X 

1958 SSX=D 

1858 NEXT X 

1878 P.$:25?#E1=8 

1286 PRINT"UITSLAGEN NA RONDE "Pp" 

1058 FOR Xe=1 TO M 

110G PRINT"SPELER "X* TOTAAL: "DAK" PNT, "7 
1118 NEXT 

1126 LINK #FFEZ:RCTIJRN 


73 
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Met de komst van het programma "sourcemaker” is het leven er ’n 
stuk gemakkelijker op geworden. Een komplimentje voor de makers 
van dit programma, t.w. Arie Marchal en Ed Ronda, is hier dan 





cok zeker op z’n piaats. Bij deze dus. 

Er is echter een foutje im het programma geslopen. Draai het 
programma maar eens voor het assemblergedeelte #FSOO-#FS40. In 
dit gebied zit de string “OUT OF RANGE: <LF> <CR>", Als source- 
maker klaar is en we bekijken onze zojuist gemaakte source van 
dit gebied dan zien we het probleem. Sourcemaker zet de HELE 


string over naar het programma met als gevolg dat de <CR> als 
‘gewone’ <CR> gezien wordt wanneer het programma klaar is. Het 
resultaat zien we in listing 1. Het probleem is dus dat de con- 
trole-karakters ook in stringvorm worden overgezet. Liever zou- 
den we dat hebben in een vorm van !#.,=#....3 In sourcemaker is 
al een routine aanwezig die dergelijke regels aflevert {voor het 
maken van de tabel). Aan de hand van deze routine heb ik de 
’string’-routine veranderd. Deze zorgt er nu voor dat alte con- 
trole-karakters in bovenstaande vorm worden afgeleverd.Zie voor 
het resultaat listing 2,Als er controle-karakters tussen ’gewo- 
ne’ karakters instaan wordt de string in gedeeltes gebroken.Een 
voorbeeld hiervan zien we in listing S.In regel 120 zien we dat 
er een byte extra wordt meegenomen als er een oneven aantal 
controle-karakters in een string staat, dit wordt echter weer 
opgeheven door P wel met het goede aantal op te hogen (in ons 
geval met 1). 

Verder heb ik in het programma nog wat kleine dingetjes veran- 
derd zodat de source die aangemaakt wordt iets leesbaarder is, 
De nieuwe sourcemaker zit în het programma-archief. , 


roude sourcemaker 





LISTING 


1205RC2H00; BEOLLG; CMPOHFF ; BEOLLS 
130; :LL4; ; JSRLL7 
140);$P="OUT OF RANGE: 


8763P=P+L.P; C LISTING 2:nieuwe sourcemaker 


150STY#67;BMILL3  =====e= 
120 SBCO#O00:; BEQLL 6; CMPOHFF ; BEULLS 


150:LL4 JSRLL7 

1403; $P="OUT OF RANGE: ";P=P+L.P 
150 P!0=#DOA;P=P+2 

160C 

170 STYR67; BMILLS 


LISTING 3: demo CTRL-karakters 











=H EORGP! DROEG P=P+4 
"EEN DEMONSTRATIE"; P=P+L.P 
=HAOAE FE 2=BAOAG F1 A=HDOAG PP +6 





1350 sP 

16u F+ 

1700 

1 NOF ; NOF 3 NOP; NOF 
De string was: 
NEEEDNDIT IS <UT. UT. 








ITZEEN DEMONSTRATIECLF,.LF.UF.LF.LF. ERD" 
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Unieke mogelijkheid voor computer-hobbyisten! 


DIREKT-GEKOPPELDE MULTI-STANDAARD-MODEM VOOR ZELFBOUW 
MET OFFICIELE PTT-GOEDKEURING 


Elektuur, het internationate maandblad voor elektronica, komt in haar septembernummer 
met een Europese primeur! In deze uitgave wordt namelijk een bouwbeschrijving 
gepubliceerd van de “Telektor”, een direkt-gekoppelde modem waarmee computers via de 
telefoonlijn met elkaar kunnen kommuniceren. Het unieke van dit zelfbouwprojekt zit ‘m 
in de mogelijkheid om eike opgebouwde “Telektor”’ door Elektuur te laten keuren, 
waarna het apparaat wordt voorzien van een officiële PTT-goedkeuringssticker, Een 
modem die direkt aan het telefoonnet is gekoppeld móét namelijk aan de door de PTT 
gestelde eisen voldoen èn een PTT-goedkeuring hebben, anders is zo'n direkte koppeling 
niet toegestaan! 
Om de nabouwzekerheid en de specifikaties te kunnen garanderen heeft Elektuur voor 
deze gelegenheid een bouwpakket samengesteld, waarin alle voorgeschreven onderdelen 
verenigd zijn: een speciaal IC, lijntrafo, dubbelzijdige print, kastje, frontplaat, speciale 
telefoonsteker en alle andere “gewone” onderdelen. De prijs van dit bouwpakket bedraagt 
f 749, —, inklusief keuringskosten. Nadere gegevens hierover vindt u in het september- 
nummer van het maandblad Elektuur. 
Voor de technisch geïnteresseerden nog enkele gegevens van de “Telektor”: 
» Keuze uit twee standaards: 

V.21 — 300 baud fuli-duplex 

V.23 — 1200/75 baud split speed full-duplex 
a Auto-answer-taciliteit. De modem kan data-boodschappen aannemen ats niemand thuis 

Is. 
2 Twee konnektoren aanwezig voor de koppeling met de computer: 

RS 232-konnektor met V.24-signaten 

Aangepaste konnektor voor TTL-nivo’s 
« Re-speeder-schakeling voor snelheidsaanpassing van het 75 baud-kanaa! bij V.23-mode. 
e Zend- en ontvanggedeelte plus de filters zijn digitaal opgebouwd {aties zit in één IC), 

zodat er geen afregeipunten zijn. 


Uitgeversmij. Elektuur B.V. Postbus 75, 6190 AB Beek (L}, tet: 04402-74200. 
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10 REM DIAGNONAAL, J. SIEGERS 
20 REM TEKENT VEELHOEK MET DIAGONALEN 
30 IN. "AANTAL ZIJDEN "A 

30 CLEAR4 

SO DIM XX{A),YYLA) 

&ú I=0 

70 FOR N=O TO 360 STEP (360/A) 
80 XXI) =128+%(BOESINRAD N) 
90 YY ID =100+/{(BOKCOSRAD N) 
100 I=I+i 

110 NEXT N 

120 FOR N=G TO (1-2) 

130 FOR MeN TO (I-2) 

140 MOVE XX(N), YY EN) 

150 DRAW XX CM) , YY CM) 

140 NEXT M 

170 NEXT N 

180 END 


iv REM flat 

20 CLEAR4 

30 Cm1905 Y=256; Ze100 

40 FOR Beéó TO 66 

50 FOR D=O TO 80 STEP 10 


60 MOVE B, (D+2) 

70 E=408D/B 

80 G=64XD/ (Y-E) 

so DRAW A, {(E+Z)s MOVE B, (D+Z): DRAW C,‚{6+Z) 
100 MOVE B‚(D+Z); DRAW B, (Z=D) 

110 DRAW A, (Z-E)3 DRAW A, {Z+E) 

420 MOVE B, (Z-D)3 DRAW C,‚{2-0)8 DRAW C, (246) 
130 NEXT D 

140 D=80 

150 FOR NaA TO B STEP 10 

160 UeNED/B 

170 MOVE N,(Z+U) 5 DRAW N, (ZU) 


180 NEXT N 
190 FOR NeB TO C STEP 10 


200 Lee (Y-N)ED/ (Y-B) 

210 MOVE N, (Zr); DRAW N, (Z-U) 
220 NEXT N \ 

230 NEXT B 


40 END 
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SREM LISSAJOUS FIGUREN NAAR HCC 48 
10P,$12 
2BIN, "AMPLITUDE HORIZONTAAL "A 
ZBIN. "AMPLITUDE VERTICAAL "B 
GOF IN. “FREGUENTIE VERHOUDING" %V 
SOREM INVOER IN GRADEN BEREKENING IN RADIALEN 
EOFIN. "BEGIN FASE VERHOUDING" XF txFexFPI/1B0 
7OREM HOR. TRILLING ELKE D GRADEN, 
BOREN VER. TRILLING ELKE EsDeV GRADEN, 
ODP I/D LEEKDeAV 
18BCLEAR4 
120REM (128,36) IS HET MIDDEN VAN HET SCHERM. 
13BREM HOR, 2UESINCEN-1) KX) , GESINANX) , WeCOSX 
1GBREM VER, 1P=SINCCN-1) X) , OESINCNX) , WeCOSX 
15DREM VER. 2 M=COS(AN- 1) X) : NECDSX 
159XU=Ds KTESIN(KD) 3 APaD3 KOESINCKE) 
178XZ=COSLKD) $ KNCOS CHE) 
18OLM=1 } AN KW 
19BXK=BINCAF) 5 XLSCOS (KF) 
2OOREM LIJN 229 — 310 DE LUS 
ZIDREM (128,96) IS HET MIDDEN VAN HET SCHERM 
22E Ze TeK ZL 
2IDAX ALE 28 
248%eKTI TeK 5 
2IDLRe 2e kij KP 
ZEOLC ZIN ELI XM 
27BLHEKKEACHAL KAR 
280XY=B#XH+SE 
ZIOKMEXN st AN=T } LPEKG 3 KEZAR 
SOOPLOT IF: AX, LY 
3105. 228 





1OGREM LISSAJOUS 

1188RMOD 

128D1MA1 

139%A=0; Xr 1285 Y=I6 

148IN, “PUNTEN OF STREPEN (5/P) “SA 
15BIF?R=P5D KeS 
168IF?A2#SSIKe2 

170P. $125?#E1=83 P. “LISSAJOUS" 
180F. I=@TO420 

1S9DPLOT4, X, Y 
200%RE1BOKSINC2*XAI 


OREN FVAR 
LIN. “ROUTINE OP: "GQ 
2D IMLLDILL DR 
IP, $21 
âF. N=QTOLt Pat LL 
14 LDRA9Q: STAN28A7 
5 LDASHIEISTAN2AAZ 
2@ LDAALLD/25E5STAG 
38 LDASLLAKZSEESTAS 
40 JSRKC2F2: JMPHCSSE 
se:LLS 
BAIN, 59=8 
1908P="F, I=BTG2E FP. " 
11AP. SE" ROUTINE OP: 






210%S284 COS CIA) 
220PLOTK, XR, X5 
2IDLAeAAe 1 

240ON. 3E. 


SI+E4""e “"IFP. NIDI IN, 5E, "tP=Pel.P 
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19 PROGRAM TEST GRMODE MET EDIT 

28 DIMBB4 

38 CLS 

48 IN. "WAAR ASSEMBLER“A 

58 F. I=9T01 

58 P=A 

78 

80: BRO 

38 LDYAE: JSRHACDE 5 JSRHACUBSLDADHIEIJSRAFEF 4 

108: BB4 

118 RTS 

128: BB1 

130 JSRHFFESs CMPO#C ; BEGBB4 ; PHA; LDA#93 ; CMPOH1 4 3 BEQBBS 
148: BB2 

i58 PLA :JSRHFFEI: JMPBBi 

168: BB3 

17B PLA3CMPA#D + BEQBEI 5 CMPO#A; BEOBE1 + PHA; LDAOHEDs CMPAHLF ; BNEBBZ 
188 PLAPHA;CMP#B; BEQBB23 CMPO#E ; BEGBEZ ; CMPA#7F ; BEUBB2; PLA; JMPBB1 
1803 

200N. 
210E. 


19 PROGRAM TOWER 
28 
38 DIMHHCS) 












48 

58 PROC HANOICP, GN) R 278 HHU=HHG+1 5 INVERT CO, NS 

EB 280 PEND 

78 XIF Ni THEN 230 

88 R=E-P-G 200 

32 HANOL CP: R‚ N-I) 318 PROC INVERTCX: B) 

100 VERPLCP. Ge ND) 3238 

110 HANOI ER: GQ: N-1) 338 MOVELKKES-42) , CHHXRL) 

120 ELSE VERPLCP, QG: 1) 340 PLOTG: -B: 35 PLOTSE, C2*B), B 

133 PEND 358 PLOTG,D: 15 PLOT2, € B), @ 

148 3E PLOT, B, is PLOT: C2*B), B 

158 370 PEND 

158 PROC TORENCP, GN) 580 

170 338 . 

188 HH1=0:HH2=05 HHS=D 409 P,S12' Atte TOREN VAN HANDI tt 
138 CLEAR4 4618 P‚"*’ *"VERPLAATS EEN AANTAL SCHIJVEN ZC 
208 FORI=N TO 1 STEP-1 428 P., "DAT ER NOOIT EEN GROTERE SCHIJF" 
205 HHP=HHP+1 4630 P."OP EEN KLEINERE LIGT. *'* 

235 INVERT(P; ID 44B INPUT “VAN WELKE PAAL "P 

207 NEXT 1 441 IN. "NAAR WELKE PAAL "B 

210 HANOICP, G: ND 442 IN. “RANTAL SCHIJVEN “N 

228 PEND 458 P=P&StQ=0ES 

250 4ED TORENCP; GND 

240 478 INKEY A;GOTO 490 

258 PROC VERPLCP, GND 523 


ZEB INVERTCP, N) 3 HHP=HHP=I si JAN WIJNEN 
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18 PROGRAM TURTLE GRAFICS 





ze 270 PEND 

3@ PROC VOORUIT CN) 288 

48 PLOTCPEID, KCKXEN) , XOLYEND 238 PROC PENOP 

SB PEND 00 P=0 

EB 318 PEND 

78 PROC ACHTERUIT CN) 328 

SB VOORUIT (-N) 358 PROC PENNEER 

38 PEND 348 Pet 

128 358 PEND 

118 PROC HOEKCA), XH 560 

128 378 

158 A=-A 588 

148 xl K*CUSRADA-LY*SINRADA 330 VEEGUITsNAARBEGIN 
158 X X*SINRADA+LY*COSRADA 408 VOORUIT(SG) + HOEK 90) 
158 XX=XH 418 VOORUIT 50) : HOEK (30) 
178 PEND 428 VOORUIT (SB) ; HOEK (3D) 
188 458 VDORUIT CSD) HOEK (90) 
138 4640 HOEK(10) 
220 PROC VEEGUIT 458 VOORUITCS) 

218 CLEAR4 4560 GDTO 420 
228 PEND 47e 

258 480 
245 PROC NAARBEGIN 498 

250 MDVE128, 36 SBB TURTLE GRAFIC'S 

258 X{=BiAYels Pel 518 


528 Er zijn een aantai manieren om pjiaaties op een comouter In 

530 =ikaar te zetten. De atom sebruikt commando's als elot,draw 
548 en move. Dit Kan natuurtijk ook anders. 

SS Turtie srafics maken het moselijk plaaties te maken met 

SE behulp van een 'schildoad', 

570 Je kunt deze schildpad over het scherm laten wandelen. 

588 De commando's voor die schitdpad Zijn vrij uitgebreid. 

597 Ik heb daar sen aantal uit senomen Oom een idee te seven 

EIJ wat turtle sratfics nu beteken. 

E18 Dat zijn : 
628 veesuit 3 maak het scherm schoon (cleará) 
E20 naarbegin j ga naar besin positie 

648 penoea i haalt Pen van papier 

658 eenneer 3 zet pen op papier 

6EO vooruit(8): ga 8 aunten vooruit 

670 hoekl45) 7 maak een hoek van 45 sraden 

Cee 

638 De commando's zijn era eenvoudia en spreken voor zichzelf, 
708 Dit is ook de reden dat ze sebruikt wOrdeén in een taat als 
718 LOGD, die speciaal voor kinderen semaakt is. 

728 

738 In het hoofdprosramma mosen de variabelen Pp:Xx en %y niet 

748 sebruint worden. 

750 

760 

78 JAN WIJNEN 
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18 PROGRAM HERSENBREKER 


2e 

28 DIM T15,RIS 

48 

58 PROC DRUKAF, I, J 
ES J=0 


76 FORI=B TO LENR-1 

85 XIF R?I 65 PRINT $T?J:J=J+t 

38 ELSE PRINT $R?I 

102 NEXT:PRINT " ! 

118 IF COUNT+LENR)3@ PRINT 

120 PEND 

130 

148 PROC BREKERCC: FI 

158 I=i 

188 IF Cel IF F=M DRIKAF 

If F=M OR ?#B0A18128=0 GOTO 218 

IF CXI=0:T?F=bh+I+F?#8000=Is BREKERCC/ Is F+1) 
I=I+i 

IF 1(27 GOTO 188 - 
PEND 





PROC HERSEN(C: RJ, Is M 
M=LENR 
FOR I=8 TO LEN R-1 
IF I?R64 C=C/CI?R-64) 5M=M-i 
NEXT 
Mm! #89ID= 20202020 
BREKER CC, @) 






PEND 
PRINT &i2"-=-=-=-e HERSENBREKER —=-=-e-="! 
INPUT “GETAL "C: "WOORD "$R 


HERSEN CC, RÒ 
IF COUNT)G PRINT * 
GOTO 538 


btk  HERSENBREKER +ettrtt+ 
DIT PROGRAMMA GENEREERT ALLE LETTER COMBINATIES 


418 VAN EEN HERSENBREKER. 
420 (ZIE DENKSPORT PUZZELS. > 





A40 JE GEEFT EERST HET GE:A'. EN DAN HET WOORD: ZOVER 

450 JE DE LETTERS AL HEBT 

468 VOORBEELD 7 

678 GETAL ?4568 (RETURN: 

488 WOORD ?...L (RETURID 

438 MET ALS UITVOER OA HET WOORD STAL: DAT GEZOCHT WERD. 
SOB DUURT HET KRAKEN VAN HET GETAL TE LANG, DRUK DAN SHIFT. 


520 VEEL HERSENBREKERPLEZIER GEWENST *! 


SA JAN WIJNEN BRABANT COST 
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18 
2e 
ze 
«B 
58 


418 
428 
438 
448 
458 
468 
470 
488 
438 
55e 
518 
52e 
558 
540 
558 
=60 


PROGRAM S-D 

FDIM X3a6 

PROC POSITIECKX, XY, XI) 
KIND ADIV LDD2EKZ 
KDDIAXAK HAY KY j KOD4ESCRKDDT 
LINS=KIDI KZ AZ; KOAETSARLAIOS 

PEND 


PROC PROJECTEER(AX, XY, XZ: P,O) XO 

KOKDIT KK KAED- KVA BDN —A ZAAD KOK Dee ATA 

Pal GDB CAYAADDD-AXSLTDE ) +KBRE/ LO) +128 

Qed (SOD AZAADDT- KID CKAIKDDD LY KID) /KO) +5 
PEND 


P.*12 
INPUT"POSITIE "7% "X,"Y "Y‚*Z "Z 
CLEAR& 
POSITIE: YZ 
RESTORE 
READ N 
WHILE NO -99 
READ MQ, P 
PROJECTEER ON, M‚ Os Xs V) 
PLOT PX Y 
READ N 
WEND 
INKEY a 
6. 158 
DATA —-1B, -6, -6: 4 
DATA 10,-6,-6, 5 
DATA 9,8: 12, 5 
DATA -1@.-6: -6: S 
DATA @.,6:-6, 3 
DATA ®,®, 12,5 
DATA ©, 6-6, & 
DATA 18, -6: -6: 5 
DATA —39 


5-D routine 

Het maken van 5 dimensionale plaatjes op een computer is 
een nosal secompliceerde bezisheid. 

Dat komt vooral! door de srote hoeveelheid sesevens die je 
bij moet houden. 

Deze routine neemt dat werk van je over. 

Je kiest eerst een positie tov de vorsorons(®. 8, 2) 

bv. positiel1®, 108, -30) 

Daarna kun je de proiectie van sen S-d punt op je 2-d tv 
opvragen met proiecteer. 

tv. proiecteerúl: 1: SP, GQ) 

Het eroiëctiepunt staat dan in P:a. 

In het voorbeeld is dat Pel2ú EN Geí@8. 

De routine sebruikt X23D tor A95. 

Het kan Zijn dat het prosramma je bekend voorkomt, het Is 
namelijk sebassert op het J-d prosramma uit het Manual. 
sasina 166. 

Jan Wijnen Bravant Dost 
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PROGRAM DRIEHOEK 


PROC TRIANGELEX: Y; A), B 
RESTORE 170 

B=A/2 

MOVEX, Y 

FOR I=8 TO 17 

READ P,Q 

CASE I OF 


19012) PLOTO, P, @ 
11814) PLOT, P:G 
12841) PLOTS, P:G 


158 
148 
150 
158 
178 
188 
198 
200 
218 
228 
228 
24 
258 
268 
278 
28u 
230 
300 
518 
3520 
350 
340 
350 
z60 
378 
288 
38 
408 
418 
428 
438 
44B 
LSG 


CEND 
NEXT E 
PEND 


DATA 0, B*A: A, B, B*A: -4*A, B, -Ar BER, GA 

DATA —-A,B: A: -B: 2: 7*A, A, -B: B, -E+A 

DATA 7*A, GEA+B: THA, -SHRA-B, B, As EHA, SEA, BEA, SHA 
DATA 7*A, -3*A-B, -A, -Br -ExA, SEA 


CLEAR4 
1#E80D=- 1 3 I= #EDDDs J-HEOBE; DOCOPYI, Js Ji JJJ Ii. JD =#950D 
TRIANGEL €52, 20, 29) 


END 


De onmosstijke driehoek. 


Escher is sen graficus diebij de meeste mensen bekend is om 
zijn ‘onmosetijke’ tekeningen. Hij tekende bijvoorbeeld sen 
trap die altijd naar boven loopt en toch op het zelfde punt 
uitkomt. Een huis Waarin muren plafonds: Plafonds vloeren 
en vloeren muren schijnen te ziJf. 

Deze tekeningen zijn semaakt door de perspectief wetten op 
een verdraaide manier te sebruiken. 

Zo Dok deze driehoek, Hierbij lijkt de ene Zijde naar 
achter te saan en de andere naar voren terwijl ze toch aan 
elkaar aanstuiten. 

Rara: hoe kan dat !! 


JAN WIJNEN 
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REM *** ONMOGELIJK FIGUUR *** 
REM EDWIN HOBBEL 

CLEAR4 

MOVEI6, 26; DRAWI6O, 40 

MOVE 160,40; DRAW180, 140 
HOVE96,26;DRAWI16,126 
MOVE116,126;DRAWI22,116 
MOVE116,126;DRAW1635,136 


10 
20 
30 
40 
50 
60 
70 
80 


10 
20 
30 
40 





90 MOVE96,26;DRAWI0, 35 50 
100 MOVE90,35;DRAWI1G, 135 80 
110 MOVEIIO,135;DRAWI74,149 70 
120 MOVE174,149;DRAWI80, 140 80 
130 MOVEI74,146;DRAWI54,46 90 
140 MOVE15&,46;DRAW107, 36 100 
150 MOVEIS4,46;DRAW148, 55 110 
160 MOVE107,36;DRAWI22,166 120 
170 MOVE163,136;DRAWI48,55 130 
180 MOVEI4B,55;DRAW110,47 140 
190 MOVE122,116;DRAW160, 124 
200 LINKSFFES 
210 I=#8000;N=#9800 
220 !I=tIt-lzI=ltâg INziN:-ljNeN-4 
230 IF N<#8000 IF I>#9800 THEN GOTO 
240 IF N=#8CO00 THEN GOTO 260 
250 GOTD 220 
260 !'#8COO=!#BCOO:-1;LINKHFFES 
270 1#8CO0=!#9CO 1;60T0 220 
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REM **e 3D-PLOT **e 

REM EDWIN HOBBEL 
A=38;B=6;C=2218;0=186;X=0 
CLEAR4;GOTO 60 

X=X+8 
MOVE(A+X),B;DRAWC, (B+X) 
MOVEC, (B+X) ;DRAW(C-X),D 
MOVE(EC-X),D;DRAWA, (D-X) 
MOVEA, (D-X);DRAW(A+X) ‚B 
IF X>=175 THEN GOTO 120 
GOTO 50 

FOR I=#8000 TO #9800 STEP à 
tI=tI:-1;NEXT 
LINK#FFE3;GOTO 120 


200 


nn sns omne menens 


Dit is niet de snelste, maar wel de simpelste 
manier om het grafische scherm wit te maken: 


GR.;COPY #86DP, #98dD, #85D1 


Voor uitleg zie de bijdrage van Bram Poot, A.N. 6,1983,blz. 98 
Frank de Groot 





IAF, SISSIS"OMREKENING UAH QT! 
LEHGTE- EN GEREEDTEGSADEN! 














KT DOOR 7 
rU24, 158 JA VLAARDINGEN 





ET DE <HIEUWE"“ 

IN LENGTE- EM "7 

GEBASEERD qP HET“” 
LOCATORJAE . ’ 


=Q?45F=QP5 
IRLSP. “PONJUIST"“ “36. 156 


BEELDEN 2 


L.=51.8E75 N.B. 





LOCATOR JOZIEN WORDT : 


LIJCAHTCR IO Ei MOPDT 7 15.241T C.t.”5S6.E8FS N.B. 





